如何保存基于响应式数据框的Shiny DT可编辑表格修改

这是关于Shiny中DT包编辑保存功能的跟进问题：当表格数据源是响应式数据框时，如何实现编辑内容的持久保存？

具体场景：用户选择性别（Male/Female），程序基于该输入生成对应的响应式表格，同时允许用户编辑表格内容并保存修改。当前尝试的代码如下：

library(shiny)
library(DT)
library(tidyverse)

Admit <- c("Admitted","Rejected","Admitted", "Rejected", "Admitted", "Rejected", "Admitted",
         "Rejected","Admitted", "Rejected", "Admitted","Rejected","Admitted", "Rejected","Admitted","Rejected", "Admitted", "Rejected",
         "Admitted","Rejected", "Admitted" ,"Rejected","Admitted", "Rejected")
Gender <- c("Male","Male","Female","Female", "Male",   "Male",   "Female", "Female", "Male","Male","Female","Female",
          "Male","Male","Female","Female","Male",   "Male",   "Female", "Female","Male","Male","Female","Female")
Dept <- c( "A","A", "A", "A", "B", "B", "B", "B", "C", "C", "C", "C", "D", "D", "D", "D", "E", "E", "E", "E", "F", "F", "F", "F")
Freq <- c("512", "313",  "89",  "19", "353", "207",  "17",   "8", "120", "205", "202", "391", "138", "279", "131", "244",  "53", "138",
        "94", "299",  "22", "351",  "24", "317")

banking.df<-data.frame(Admit,Gender,Dept, Freq,stringsAsFactors = FALSE)

ui <- fluidPage(
  
  selectInput("gender", label = "Select Gender", c("Male", "Female"), selected = "Male"), br(),
  
  DTOutput("tab1"), br(), 
  
  actionButton("saveBtn", "Save changes"), br(),
  
  DTOutput("tab2")
)

server=function(input, output) {
  
  dat1 <- reactive({ banking.df %>% filter(Gender %in% input$gender) })
  
  output$tab1<-renderDT(datatable(dat1(), selection='none', editable = 'cell') )
  
  observeEvent(input$tab1_cell_edit, { 
    str(input$tab1_cell_edit)
    row  <- input$tab1_cell_edit$row
    col <- input$tab1_cell_edit$col
    value <- input$tab1_cell_edit$value
    dat1()[row,col] <<- value
  })
  
  save_fun<-eventReactive(input$saveBtn,{
    dat1()
  })
  
  output$tab2 <- renderDT({
    datatable(dat1(), caption="After Saved Edits")})
  
}

shinyApp(ui = ui, server = server)

运行代码时，保存修改到响应式数据框会出现以下报错：

Warning: Error in <<-: invalid (NULL) left side of assignment

错误原因 #

1. reactive()创建的dat1是一个响应式函数，不是可直接修改的对象，无法通过<<-赋值修改其返回的数据。
2. 每次input$gender变化时，dat1()会重新执行过滤逻辑生成新数据，之前的编辑内容会被覆盖丢失。

解决方案 #

使用reactiveVal()存储可修改的数据集，结合监听性别输入更新初始数据，同时处理表格编辑事件来修改存储的数据。修改后的完整代码如下：

library(shiny)
library(DT)
library(tidyverse)

Admit <- c("Admitted","Rejected","Admitted", "Rejected", "Admitted", "Rejected", "Admitted",
         "Rejected","Admitted", "Rejected", "Admitted","Rejected","Admitted", "Rejected","Admitted","Rejected", "Admitted", "Rejected",
         "Admitted","Rejected", "Admitted" ,"Rejected","Admitted", "Rejected")
Gender <- c("Male","Male","Female","Female", "Male",   "Male",   "Female", "Female", "Male","Male","Female","Female",
          "Male","Male","Female","Female","Male",   "Male",   "Female", "Female","Male","Male","Female","Female")
Dept <- c( "A","A", "A", "A", "B", "B", "B", "B", "C", "C", "C", "C", "D", "D", "D", "D", "E", "E", "E", "E", "F", "F", "F", "F")
Freq <- c("512", "313",  "89",  "19", "353", "207",  "17",   "8", "120", "205", "202", "391", "138", "279", "131", "244",  "53", "138",
        "94", "299",  "22", "351",  "24", "317")

banking.df<-data.frame(Admit,Gender,Dept, Freq,stringsAsFactors = FALSE)

ui <- fluidPage(
  
  selectInput("gender", label = "Select Gender", c("Male", "Female"), selected = "Male"), br(),
  
  DTOutput("tab1"), br(), 
  
  actionButton("saveBtn", "Save changes"), br(),
  
  DTOutput("tab2")
)

server=function(input, output) {
  
  # 用reactiveVal存储可修改的数据集
  editable_dat <- reactiveVal()
  
  # 监听性别选择，更新初始数据
  observeEvent(input$gender, {
    filtered_data <- banking.df %>% filter(Gender %in% input$gender)
    editable_dat(filtered_data)
  }, ignoreNULL = FALSE) # 初始化时触发一次
  
  # 渲染可编辑表格
  output$tab1<-renderDT({
    datatable(editable_dat(), selection='none', editable = 'cell')
  })
  
  # 处理表格编辑事件，修改reactiveVal中的数据
  observeEvent(input$tab1_cell_edit, { 
    current_dat <- editable_dat()
    row <- input$tab1_cell_edit$row
    col <- input$tab1_cell_edit$col
    value <- input$tab1_cell_edit$value
    
    # 更新对应单元格的值
    current_dat[row, col] <- value
    editable_dat(current_dat)
  })
  
  # 保存按钮触发后，更新展示表格（这里可扩展为保存到文件/数据库）
  saved_dat <- eventReactive(input$saveBtn, {
    editable_dat()
  })
  
  # 展示保存后的表格
  output$tab2 <- renderDT({
    datatable(saved_dat(), caption="After Saved Edits")
  })
  
}

shinyApp(ui = ui, server = server)

关键修改点 #

• 使用reactiveVal()创建可修改的响应式变量editable_dat，替代原有的reactive()函数。
• 通过observeEvent监听input$gender变化，将过滤后的初始数据存入editable_dat。
• 表格编辑事件中，先获取当前数据，修改后重新赋值给editable_dat，确保修改持久化。
• 保存按钮触发时，提取当前修改后的数据用于展示或后续存储操作。

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