如何解决编辑数据表,但当我们移至另一页时更改将消失
我正在从另一个论坛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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。