R Shiny开发：如何获取DataTable选中行的指定字段数据

完整可运行示例 #

你可以直接运行下方代码，效果完全匹配你的需求：

# 先安装依赖包：install.packages(c("shiny", "DT", "ggplot2"))
library(shiny)
library(DT)
# 示例数据集自带你需要的model、trans字段
data(mpg, package = "ggplot2")

ui <- fluidPage(
  DTOutput("car_table"),
  h4("选中行指定字段结果："),
  verbatimTextOutput("selected_result")
)

server <- function(input, output) {
  # 渲染可交互数据表
  output$car_table <- renderDT({
    datatable(mpg, selection = "single")
  }, server = FALSE)

  # 提取选中行对应字段
  output$selected_result <- renderPrint({
    idx <- input$car_table_rows_selected
    if (is.null(idx)) {
      return("请在表格中选中一行")
    }
    target_row <- mpg[idx, ]
    # 此处提取的两个字段可直接用于后续计算逻辑
    list(
      model = target_row$model,
      trans = target_row$trans
    )
  })
}

shinyApp(ui, server)

核心实现逻辑 #

• 需使用DT包的交互表格组件，而非Shiny自带的基础表格
• 渲染表格时通过selection = "single"限制仅可选中单行，若需多选可改为"multiple"
• 选中行的索引会自动存入input${表格ID}_rows_selected变量，表格ID为DTOutput中定义的字符串
• 用索引从原始数据集中切片，即可直接访问该行的所有字段值

注意事项 #

• 渲染DT时设置server = FALSE可避免分页、排序、筛选后行索引和原始数据集错位的问题
• 未选中任何行时input${表格ID}_rows_selected值为NULL，需做非空判断避免报错

内容的提问来源于stack exchange，提问作者SteveG