[英]How to edit and save changes made on Shiny dataTable using DT package
I would like to edit the table and save the changes to the example below.我想编辑表格并将更改保存到下面的示例中。 Here's what I have so far.这是我到目前为止所拥有的。
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)
I am able to edit the table and it will store the changes.我能够编辑表格,它将存储更改。 However, whenever I try to make an edit that is new to the particular column, it does not save the changes and it leaves it as blank.但是,每当我尝试对特定列进行新的编辑时,它不会保存更改并将其保留为空白。 For example, if I type "H" on the dept.例如,如果我在部门输入“H”。 column that change is not allowed.不允许更改的列。 How can I fix this?我怎样才能解决这个问题? Also, how can I use the "save button" so that it can overwrite the banking.df?另外,如何使用“保存按钮”来覆盖banking.df? Thank you.谢谢你。
I tried your code and modified few elements.我尝试了您的代码并修改了一些元素。 Few points need to be cleared:有几点需要清除:
Code: UI.R代码:UI.R
library(shiny)
library(DT)
fluidPage(
titlePanel("UC Berkley Admissions"),
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("Sample Bank",
DT::dataTableOutput("banking.df_data"),
br(),
actionButton("viewBtn","View"),
br(),
actionButton("saveBtn","Save"),
br(),
DT::dataTableOutput("updated.df")
))))
Server.R服务器.R
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)
d1 = banking.df
d1$Date = Sys.time() + seq_len(nrow(d1))
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()
}
)
}
Just one small comment to Subhasish1315's amazing code: it is working for me with a small correction.只是对 Subhasish1315 的惊人代码的一个小评论:它对我有一个小的修正。 Apparently DT starts column number at 0, while R starts at 1, so it should be:显然 DT 从 0 开始列号,而 R 从 1 开始,所以它应该是:
observeEvent(input$banking.df_data_cell_edit, {
d1[input$banking.df_data_cell_edit$row,input$banking.df_data_cell_edit$col**+1**] <<- input$banking.df_data_cell_edit$value
})
See Shiny DT editing saves in the wrong column for a discussion of the issue.有关该问题的讨论,请参阅Shiny DT 编辑保存在错误的列中。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.