我希望编辑下面这个例子的表格并保存更改。以下是我目前所拥有的。
library(shiny)
library(DT)
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)
# Define UI ----
ui <- fluidPage(
titlePanel("UC Berkley Admissions"),
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("Sample Bank", DT::dataTableOutput("banking.df"),
br(),
actionButton("saveBtn","Save")))))
# Define server logic ----
server <- function(input, output) {
d1 = banking.df
d1$Date = Sys.time() + seq_len(nrow(d1))
output$banking.df=render_dt(d1,'cell')
#edit a single cell
proxy5=dataTableProxy('banking.df')
observeEvent(input$banking.df_cell_edit,{
info=input$banking.df_cell_edit
str(info)
d1<<-editData(d1,info)
replaceData(proxy5,d1,resetPaging = FALSE)
})
#observeEvent(input$saveBtn,write.csv(input$banking.df),
# file="NewData.csv",row.names=FALSE)
}
# Run the app ----
shinyApp(ui = ui, server = server)
我能够编辑表格并保存更改。然而,每当我尝试对特定列进行新的编辑时,它不会保存更改,而是将其留空。例如,如果我在“部门”列上键入“H”,则不允许更改。我该如何解决这个问题? 另外,我该如何使用“保存按钮”覆盖banking.df文件? 谢谢。
observeEvent
中,d1 <<- editData(d1, 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
。 - LMc