如何调整代码实现DT表格最多选中5行？

问题分析 #

你之前的jQuery代码无效的核心原因：

• Shiny中DT表格是动态渲染的，$(document).ready()执行时表格DOM还未生成，绑定的点击事件无法生效
• 手动修改row_selected类和DT内置的选中状态管理不兼容，导致input$row_modif_rows_selected无法同步更新

正确解决方案 #

直接利用DT自带的选中配置和JS回调来实现限制，无需额外手动绑定点击事件：

library(shiny)
library(DT)

ui <- basicPage(
  mainPanel(
    DT::dataTableOutput('row_modif'),
    tags$p("Selected Row:\n"),
    textOutput("selectedrow"), 
    tags$p("Species and Sepal Length for Selected Row:\n"), 
    DT::dataTableOutput("sscols")
  )
)

server <- function(input, output, session) {
  
  output$row_modif <- DT::renderDataTable({
    DT::datatable(
      data = iris,
      selection = list(mode = "multiple", selected = NULL),
      options = list(
        bPaginate = TRUE,
        bLengthChange = FALSE,
        bFilter = TRUE,
        bSort = TRUE,
        bInfo = TRUE,
        bAutoWidth = FALSE
      ),
      callback = JS(
        "table.on('select', function(e, dt, type, indexes) {",
        "  if(type === 'row') {",
        "    var selectedRows = dt.rows({selected: true}).count();",
        "    if(selectedRows > 5) {",
        "      dt.rows(indexes).deselect();",
        "      alert('最多只能选中5行！');",
        "    }",
        "  }",
        "});"
      )
    )
  })
  
  output$selectedrow <- renderPrint({
    if(is.null(input$row_modif_rows_selected)) NULL else sort(input$row_modif_rows_selected)
  })
  
  output$sscols <- DT::renderDataTable({
    if(is.null(input$row_modif_rows_selected)) {
      datatable(data.frame())
    } else {
      datatable(
        data = iris[sort(input$row_modif_rows_selected), c("Species", "Sepal.Length")],
        options = list(
          pageLength = 8,
          buttons = list(list(
            extend = "csv",
            filename = "Consulta",
            fieldSeparator = ";"
          )), 
          dom = 'Blfrtip'
        ), 
        extensions = 'Buttons'
      )
    }
  })
  
}

shinyApp(ui, server)

关键改动说明 #

• 移除了手动添加的jQuery脚本，改用DT内置的callback参数绑定选中事件
• 利用DT的APIdt.rows({selected: true}).count()实时统计选中行数
• 当选中行数超过5时，自动取消当前选中的行并弹出提示
• 保留了原有的表格配置和后续的选中行展示逻辑，同时兼容DT的input$xxx_rows_selected参数

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