如何获取Shiny中可编辑Datatable不受选中状态限制的全量数据

以下是两种可落地的实现方案，不受行选中、分页、筛选状态限制：

方案1：后端托管数据同步（最稳定，推荐使用） #

通过reactiveValues托管全量表格数据，监听编辑事件实时同步，步骤如下：

• 初始化阶段将原始表格数据存入reactiveValues对象，作为全量数据的唯一可信源
• 渲染DT时开启editable = TRUE参数支持编辑
• 监听input[[{DT_ID}_cell_edit]]事件，每次编辑触发后更新托管数据的对应单元格
• 直接读取reactiveValues内的对象即可拿到实时全量数据

代码示例：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("my_editable_dt"),
  actionButton("fetch_data", "获取全量数据")
)

server <- function(input, output) {
  # 初始化托管的全量数据
  rv <- reactiveValues(
    full_data = data.frame(
      序号 = 1:5,
      内容 = c("a", "b", "c", "d", "e"),
      stringsAsFactors = FALSE
    )
  )

  # 渲染可编辑DT
  output$my_editable_dt <- renderDT({
    datatable(rv$full_data, editable = TRUE)
  })

  # 同步编辑内容到托管数据
  observeEvent(input$my_editable_dt_cell_edit, {
    edit_info <- input$my_editable_dt_cell_edit
    rv$full_data[edit_info$row, edit_info$col] <- edit_info$value
  })

  # 测试获取全量数据
  observeEvent(input$fetch_data, {
    print(rv$full_data)
  })
}

shinyApp(ui, server)

如果需要获取经过前端筛选/排序后的全量数据，配合你提到的input[[{DT_ID}_rows_all]]索引切分托管数据即可：

filtered_full_data <- rv$full_data[input$my_editable_dt_rows_all, ]

方案2：前端JS回调直接返回全量数据 #

适合不想在后端维护数据同步的场景，通过DT的JS回调将编辑后的全量数据直接传给Shiny输入对象：
渲染DT时添加callback参数配置编辑事件回调：

datatable(
  raw_data,
  editable = TRUE,
  callback = JS("
  table.on('edit', function() {
    // 将表格全量数据转为数组传给Shiny
    Shiny.setInputValue('full_dt_data', table.data().toArray());
  });
  ")
)

后端直接读取input$full_dt_data即可拿到最新全量数据，格式为嵌套列表，按需转为data.frame即可使用。

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