如何在Shiny的DT::datatable中实现复选框状态持久化？

问题出在每次切换分页时，表格会重新渲染，原来的复选框状态没有被持久化保存。下面是修改后的代码，实现状态跨页面保留：

library(shiny)
library(DT)

runApp(
  list(ui = fluidPage(
    dataTableOutput("dtout")
  ),
  server = function(input, output, session) {
    
    # 用reactiveValues存储复选框状态，初始全未勾选
    rv <- reactiveValues(checked = rep(FALSE, nrow(mtcars)))
    
    shinyInput <- function(FUN, id, num, values, ...) {
      inputs <- character(num)
      for (i in seq_len(num)) {
        # 根据存储的状态设置复选框的初始值
        inputs[i] <- as.character(FUN(paste0(id, i), label = NULL, value = values[i], ...))
      }
      inputs
    }
    
    # 监听每个复选框的状态变化，同步更新存储的状态
    observe({
      lapply(seq_len(nrow(mtcars)), function(i) {
        input_id <- paste0("srows_", i)
        observeEvent(input[[input_id]], {
          rv$checked[i] <- input[[input_id]]
        }, ignoreInit = TRUE)
      })
    })
    
    output$dtout <- renderDataTable({
      datatable(
        cbind(Pick = shinyInput(checkboxInput, "srows_", nrow(mtcars), values = rv$checked, width = 1), mtcars),
        options = list(drawCallback= JS('function(settings) {Shiny.bindAll(this.api().table().node());}')),
        selection = 'none', escape = FALSE)
    }, server = FALSE) # 客户端渲染模式，避免分页时重新生成表格丢失状态
    })
)

核心改动说明： #

• 新增reactiveValues容器rv$checked，专门保存每一行复选框的勾选状态
• 修改shinyInput函数，渲染复选框时读取已保存的状态，确保分页返回时恢复之前的勾选
• 添加监听逻辑，只要任意复选框状态改变，就同步更新存储容器里对应位置的值
• 开启server=FALSE客户端渲染，避免分页时表格从服务器重新生成导致状态重置

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