通过DT包中shiny 的DataTable保存对react 性数据帧所做的更改

请帮帮忙.我有一个关于这个帖子的后续问题. How to edit and save changes made on Shiny dataTable using DT package个

如果DataTable数据集是一个react 性数据帧，情况会怎样？那我怎么才能保存编辑呢？

为了进一步说明，让我们假设我要求用户输入性别 Select (男性或女性)，然后我根据该react 性输入创建输出tab1数据表，并且仍然希望能够编辑和保存对该数据表的更改.我怎么能做到呢？请参见下面的示例代码.

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)

将更改保存回react 性数据帧时，我收到此错误

警告:&lt；&lt；中出错-:赋值左侧无效(空)