在Shiny应用中使用DT的Scroller扩展时，如何避免编辑内容丢失？

问题根源在于Scroller扩展采用虚拟滚动机制，仅渲染当前可见区域的行；滚动时会重新加载对应位置的行数据，若编辑内容未同步到后端数据源，就会恢复为原始数据。

解决核心是实时将编辑内容同步到响应式数据源，让DT始终基于最新数据渲染。修改后的代码如下：

library(shiny)
library(DT)

ui <- fluidPage(
  br(), br(),
  DTOutput("dtable")
)

server <- function(input, output, session) {
  # 用响应式对象存储数据，实时同步编辑内容
  rv <- reactiveValues(data = iris)
  
  output[["dtable"]] <- renderDT({
    datatable(
      rv$data, 
      class = "display compact nowrap",
      extensions = "Scroller",
      editable = "cell",
      options = list(
        scroller       = TRUE,
        scrollCollapse = TRUE,
        scrollY        = 200
      )
    )
  }, server = FALSE) # 关闭server端渲染，确保前端编辑后能实时同步到数据源
  
  # 监听单元格编辑事件，更新响应式数据
  observeEvent(input[["dtable_cell_edit"]], {
    info <- input[["dtable_cell_edit"]]
    rv$data[info$row, info$col] <- info$value
  })
}

shinyApp(ui, server)

关键要点：

• 使用reactiveValues创建响应式数据源rv$data，替代静态的iris数据集
• 通过observeEvent监听input$dtable_cell_edit事件，将编辑内容实时写入rv$data
• 渲染DT时设置server = FALSE，确保前端编辑操作能直接触发数据源更新，避免滚动时重新加载原始数据

内容的提问来源于stack exchange，提问作者Stéphane Laurent