如何在Shiny应用中编辑后保留DataTable的筛选/分页视图？

我正在开发一个Shiny应用，使用可编辑的DataTable，希望实现：用户在筛选表格或切换分页后编辑单元格，编辑完成后保留当前视图（筛选条件、分页位置、列排序/重排状态），同时显示编辑内容（包括关联列的数值变化）。当前代码的编辑和关联列功能正常，但编辑后视图会立即重置。

修改后的完整代码 #

library(shiny)
library(DT)

# 创建50条数据的示例数据集
df <- data.frame(
  name = paste0("Person ", 1:50),
  age = sample(20:60, 50, replace = TRUE),
  salary = sample(2000:5000, 50, replace = TRUE),
  stringsAsFactors = FALSE
)

ui <- fluidPage(
  DTOutput("table")
)

server <- function(input, output, session) {
  rv <- reactiveValues(df = df)
  
  # 创建DT代理，用于后续局部更新
  table_proxy <- dataTableProxy("table")
  
  output$table <- renderDT({
    datatable(
      rv$df,
      rownames = FALSE,
      editable = TRUE,
      filter = "top",
      selection = "none",
      extensions = c("ColReorder", "Buttons"),
      options = list(
        dom = "lBRrftpi",
        autoWidth = FALSE,
        pageLength = 20,
        scrollX = FALSE,
        ColReorder = TRUE,
        buttons = list(list(extend = 'csv', filename= 'data'), 'print', 'copy')
      )
    )
  })
  
  observeEvent(input$table_cell_edit, {
    info <- input$table_cell_edit
    i <- info$row
    j <- info$col
    v <- info$value
    
    # 更新主单元格（DT列索引从0开始，数据框列索引从1开始）
    rv$df[i, j + 1] <- v
    
    # 如果编辑的是age列（DT索引j=1），同步更新salary列
    if(j == 1){
      rv$df[i, j + 2] <- as.numeric(v) * 100
    }
    
    # 保留分页状态更新数据集
    replaceData(
      proxy = table_proxy,
      data = rv$df,
      resetPaging = FALSE,
      clearSelection = FALSE
    )
    
    # 局部更新修改的单元格，避免视图重置
    info$value <- rv$df[i, j + 1]
    table_proxy %>% updateCell(info)
    
    # 若涉及关联列，同步更新该单元格
    if(j == 1){
      info_assoc <- info
      info_assoc$col <- j + 1
      info_assoc$value <- rv$df[i, j + 2]
      table_proxy %>% updateCell(info_assoc)
    }
  })
  
}

shinyApp(ui, server)

核心改进点 #

• 提前初始化DT代理：避免每次编辑操作重复创建代理对象，提升效率
• 直接修改数据集：通过索引直接更新rv$df，替代editData，减少不必要的表格重绘触发
• 精准控制视图状态：replaceData中明确设置resetPaging = FALSE和clearSelection = FALSE，确保分页、筛选等状态不丢失
• 局部单元格更新：使用updateCell单独刷新修改的单元格（含关联列），而非重绘整个表格，彻底解决视图重置问题

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