Shiny中如何实现仅点击DT表格指定列时才获取选中行？

该需求完全可以实现，核心思路是放弃默认的rows_selected整行选中监听逻辑，改用DT内置的单元格点击事件做列判断，只有点击指定列时才触发后续操作，实现代码如下：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("tab")
)

server <- function(input, output) {
  output$tab <- renderDT({
    # 若不需要默认的整行选中效果，可将selection设为none，也可保留默认配置
    datatable(iris, selection = 'none', escape = F)
  })
  
  # 监听单元格点击事件，替代原有的行选中监听
  observeEvent(input$tab_cell_clicked, {
    click_info <- input$tab_cell_clicked
    # 示例指定点击第3列（列索引从0开始计数，第3列对应索引为2）才触发
    # 可自行修改列索引值，或用列名判断
    if(!is.null(click_info) && click_info$col == 2) {
      print(paste0("点击的行号为：", click_info$row))
    }
  })
}

shinyApp(ui, server)

补充说明 #

• 若需要点击指定列时同时选中整行，可在列判断通过后调用DT的selectRows方法实现即可。
• 列判断改用列名的写法示例：if(colnames(iris)[click_info$col + 1] == "Petal.Length")，避免后续调整列顺序导致逻辑失效。

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