如何将已有DT::datatable表格的选择模式从单选改为多选？

要实现点击按钮切换DT表格的选择模式，无需重新渲染表格，可以通过直接操作DataTables的JavaScript实例修改选择样式，结合Shiny的响应式值跟踪状态，具体实现如下：

完整代码 #

library(shiny)
library(DT)
library(shinyjs)

shinyApp(
  ui = fluidPage(
    useShinyjs(), # 初始化shinyjs用于执行JS代码
    actionButton("change_selection", label = "切换选择模式"), 
    DTOutput('tbl')
  ),
  server = function(input, output, session) {
    # 创建表格代理，用于后续操作表格
    proxy <- dataTableProxy("tbl")
    
    # 跟踪当前选择模式，初始为单选
    current_selection_mode <- reactiveVal("single")
    
    observeEvent(input$change_selection, {
      # 切换选择模式（单选↔多选）
      new_mode <- if(current_selection_mode() == "single") "multi" else "single"
      current_selection_mode(new_mode)
      
      # 执行JS命令修改DataTables实例的选择样式
      runjs(sprintf(
        "$('#tbl').DataTable().select({style: '%s'});", 
        new_mode
      ))
      
      # 清空已选行，避免切换模式后选择状态混乱
      selectRows(proxy, NULL)
    })
    
    output$tbl = renderDT(
      iris, 
      selection = list(mode = current_selection_mode(), target = 'row'), 
      options = list(lengthChange = FALSE)
    )
  }
)

关键说明 #

• shinyjs的作用：通过runjs()直接执行JavaScript代码，修改DataTables表格的选择模式，无需重新渲染表格。
• 响应式值跟踪状态：current_selection_mode用于同步初始渲染状态和后续动态修改的状态，确保表格行为一致。
• 清空已选行：切换模式时清空选择，避免单选状态下的选中行在多选模式下残留，导致交互逻辑混乱。
• 版本兼容性：你的DT 0.23版本完全支持此操作，无需强制升级（若后续出现兼容性问题，可升级至最新版DT）。

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