编辑数据表，但当我们移至另一页时更改将消失

问题描述

我正在从另一个论坛How to edit and save changes made on Shiny dataTable using DT package窃取代码。该论坛的解决方案（如下）工作正常。我注意到DataTable的“ editable = TRUE”功能中似乎存在一个错误。运行以下代码，然后在界面上更改单元格，单击第2页，然后再次返回第1页，您的更改将消失。

我可以知道这是什么问题吗？还是DataTable中存在错误？

library(shiny)
library(DT)

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

banking.df<-data.frame(Admit,Gender,Dept,Freq,stringsAsFactors = FALSE)
d1 = banking.df
d1$Date = Sys.time() + seq_len(nrow(d1))


# Define UI ----
ui <- fluidPage(
  titlePanel("UC Berkley Admissions"),mainPanel(
    tabsetPanel(
      id = 'dataset',tabPanel("Sample Bank",DT::dataTableOutput("banking.df_data"),br(),actionButton("viewBtn","View"),actionButton("saveBtn","Save"),DT::dataTableOutput("updated.df")
      ))))

# Define server logic ----
server <- function(input,output) {
  
  output$banking.df_data<-renderDataTable(
    d1,selection = 'none',editable = TRUE,rownames = TRUE,extensions = 'Buttons',options = list(
      paging = TRUE,searching = TRUE,fixedColumns = TRUE,autoWidth = TRUE,ordering = TRUE,dom = 'Bfrtip',buttons = c('csv','excel')
    ),class = "display"
  )
  
  
  observeEvent(input$banking.df_data_cell_edit,{
    d1[input$banking.df_data_cell_edit$row,input$banking.df_data_cell_edit$col] <<- input$banking.df_data_cell_edit$value
  })
  
  view_fun<-eventReactive(input$viewBtn,{
    if(is.null(input$saveBtn)||input$saveBtn==0)
    {
      returnValue()
    }
    else
    {
      DT::datatable(d1,selection = 'none')
    }
    
  })
  
  
  observeEvent(input$saveBtn,{
    write.csv(d1,'test.csv')
  })
  
  output$updated.df<-renderDataTable({
    view_fun()
  }
  )
}



# Run the app ----
shinyApp(ui = ui,server = server)

解决方法

您的原始程序旨在在第二个表中显示更改，单击您的视图按钮时，将在下面显示该表。要保留顶部表中的更改而不显示第二个表，请尝试以下代码。如有必要，可以使用“重置”按钮返回到初始数据。

val minutesAndSeconds = "%2d:%2d".format(minutes,seconds)