如何修改Shiny代码获取复选框选中行的索引？

修改后的完整代码 #

library(shiny)
library(DT)

runApp(list(
    ui = fluidPage(
        dataTableOutput("dtout"),
        # 新增：展示选中的行信息
        verbatimTextOutput("selected_rows")
    ),
    server = function(input, output, session) {
        shinyInput <- function(FUN, id, num, ...) {
            inputs <- character(num)
            for (i in seq_len(num)) {
                inputs[i] <- as.character(FUN(paste0(id, i), label = NULL, ...))
            }
            inputs
        }
        
        output$dtout <- renderDataTable({
            datatable(
                cbind(
                    Pick = shinyInput(
                        checkboxInput,
                        "srows_",
                        nrow(mtcars),
                        value = FALSE,  # 统一初始为未选中状态
                        width = "20px"
                    ),
                    mtcars
                ),
                options = list(
                    drawCallback = JS(
                        'function(settings) {Shiny.bindAll(this.api().table().node());}'
                    ),
                    columnDefs = list(list(targets = 0, orderable = FALSE))  # 复选框列禁止排序
                ),
                selection = 'none',
                escape = FALSE,
                rownames = FALSE  # 隐藏默认行名避免混淆
            )
        }, server = FALSE)
        
        # 核心：获取选中行的索引与数据
        selected_data <- reactive({
            # 遍历所有复选框，筛选出选中的行索引
            selected_indices <- which(sapply(seq_len(nrow(mtcars)), function(i) {
                input[[paste0("srows_", i)]]
            }))
            
            # 返回选中的行数据（仅需索引的话直接返回selected_indices即可）
            mtcars[selected_indices, , drop = FALSE]
        })
        
        # 实时展示选中结果
        output$selected_rows <- renderPrint({
            cat("选中的行索引：", paste(selected_data() %>% rownames(), collapse = ", "), "\n")
            cat("选中的行数据：\n")
            print(selected_data())
        })
    }
))

关键修改说明 #

• 复选框初始状态：把原代码的value = NULL改为value = FALSE，确保所有复选框初始为未选中状态，避免逻辑混乱。
• 选中行获取逻辑：
  利用sapply遍历所有复选框的ID（srows_1到srows_n），逐个检查选中状态；
  通过which()提取选中状态为TRUE的位置，也就是对应的行索引；
  直接返回选中行的完整数据，后续操作可直接调用这个响应式对象。
• 体验优化：添加复选框列不可排序设置、隐藏默认行名，同时新增输出组件实时展示选中结果，方便验证效果。

使用提示 #

后续要基于选中数据操作时，直接调用selected_data()即可获取完整的选中行数据；如果只需要行索引，直接使用selected_indices变量就行。

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