R-Shiny：可编辑DT表格问题

问题解决的方法是使用 observeEvent 函数在用户对表格进行编辑时更新 data frame。

代码示例：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput('myTable')
)

server <- function(input, output) {
  myData <- data.frame(x = 1:3, y = c("A", "B", "C"))
  
  output$myTable <- renderDT({
    datatable(myData, editable = TRUE, rownames = FALSE)
  })
  
  observeEvent(input$myTable_cell_edit, {
    info = input$myTable_cell_edit
    row = info$row
    col = info$col
    value = info$value
    
    myData[row, col] <<- DT::coerceValue(value, myData[row, col])
  })
}

shinyApp(ui = ui, server = server)

在这个例子中，我们创建了一个名为 myData 的数据帧，并将其传递给datatable函数以生成一个可编辑的 DT表格。使用 observeEvent 函数监听DT表格的单元格编辑事件。在此事件中，我们使用括号中定义的参数来确定表格中被编辑的单元格，然后将新值添加到数据帧中。使用“<<-”符号可以使更改在全局环境中实时更新，从而反映在 DT表格中。