R 如何从数据库中编辑的数据表中提取数据

我想创建一个闪亮的应用程序，用户必须在其中编辑数据表。 有一个代码包含可复制的示例：

library(shiny)
library(dplyr)
library(DT)
 
 
line<-c(1,1,1,1,1)
op<-c(155,155,155,156,156)
batch<-c(1,2,3,1,2)
voile<-c(1,NA,NA,NA,NA)
depot<-c(2,NA,2,NA,NA)
 
boe<-data.frame(line,op,batch)
 
ui <- fluidPage(
   
    # Application title
    titlePanel("test dust"),
   
    actionButton("refresh", label = "refresh"),
   
    DT::dataTableOutput("mytable"),
   
    actionButton("save", label = "save"),
 
)
 
# Define server logic required to draw a histogram
server <- function(input, output) {
   
    DTdust<- eventReactive(input$refresh, {
        DTdust <-data.frame(line,op,batch,voile,depot)
    })
   
    merged<-reactive({
        merged<-merge(boe,DTdust(),all.x = TRUE)
        })
   
    mergedfiltred<-reactive({
        mergedfiltred<- filter(merged(),is.na(voile)|is.na(depot) )
    })
   
    output$mytable = DT::renderDataTable( mergedfiltred(),editable = list(target = 'cell',
    disable = list(columns = c(1:3))),selection = 'none'
    )                                                                          
}
 
# Run the application
shinyApp(ui = ui, server = server)

图书馆（闪亮）
图书馆（dplyr）
图书馆（DT）
行您需要定义一个
reactiveValues
数据帧。然后，无论何时通过
mytable\u cell\u edit
修改任何单元格，您都需要通过
observeEvent
对其进行更新。更新后的数据帧现在在服务器端可用，其中一部分现在打印在第二个表中。您可以使用
DF1$data
进行进一步分析或子集设置。完整的更新代码如下

library(shiny)
library(dplyr)
library(DT)

line<-c(1,1,1,1,1)
op<-c(155,155,155,156,156)
batch<-c(1,2,3,1,2)
voile<-c(1,NA,NA,NA,NA)
depot<-c(2,NA,2,NA,NA)

boe<-data.frame(line,op,batch)

ui <- fluidPage(
  
  # Application title
  titlePanel("test dust"),
  
  actionButton("refresh", label = "refresh"),
  
  DTOutput("mytable"), DTOutput("tb2"),
  
  actionButton("save", label = "save"),
  
)

# Define server logic required to draw a histogram
server <- function(input, output) {
  DF1 <- reactiveValues(data=NULL)
  
  DTdust<- eventReactive(input$refresh, {
    req(input$refresh)
    DTdust <-data.frame(line,op,batch,voile,depot)
  })
  
  merged<-reactive({
    req(DTdust())
    merged<-merge(boe,DTdust(),all.x = TRUE)
  })
  
  mergedfiltred<-reactive({
    mergedfiltred <- filter(merged(),is.na(voile)|is.na(depot) )
    DF1$data <- mergedfiltred
    mergedfiltred
  })
  
  output$mytable = renderDT( 
    mergedfiltred(),
    editable = list(target = 'cell', disable = list(columns = c(1:3))), selection = 'none'
  )
  
  observeEvent(input$mytable_cell_edit, {
    info = input$mytable_cell_edit
    str(info)
    i = info$row
    j = info$col  
    v = info$value
    
    DF1$data[i, j] <<- DT::coerceValue(v, DF1$data[i, j])
  })
  
  output$tb2 <- renderDT({
    df2 <- DF1$data[,2:5]
    plen <- nrow(df2)
    datatable(df2, class = 'cell-border stripe',
              options = list(dom = 't', pageLength = plen, initComplete = JS(
                "function(settings, json) {",
                "$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
                "}")))
    
  })
  
}

# Run the application
shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（dplyr）
图书馆（DT）
line您好，谢谢您的解决方案@YBS。
在这里问了半个小时后，我终于自己找到了解决办法。。。（我以前转了好几个小时）。
这就是我所做的：


    output$x2 = DT::renderDataTable({
        req(dat$x2)
        DT::datatable(dat$x2)
    })
    dat <- reactiveValues()
   
    # update edited data
    observeEvent(input$mytable_cell_edit, {
        data_table <- dat$x2
        data_table[input$mytable_cell_edit$row, input$mytable_cell_edit$col] <- as.numeric(input$mytable_cell_edit$value)
        dat$x2 <- data_table
    })



输出$x2=DT:：renderDataTable({
需求（数据$x2）
DT:：数据表（dat$x2）
})
dat