闪亮的数据源可编辑，用于反应性数据源

Question

我只是想制作用户可编辑选择的数据（在闪亮的数据表中显示），并最终将用户的更新保存到文件（例如excel文件），请参见下面的测试代码：

我检查了下面的示例/问题。 （还有其他一些），但是没有一个将反应性用作数据源。

https://yihui.shinyapps.io/dt-edit/

https://stackoverflow.com/questions/69959720/Edit-DataTable-in-shiny-with-dropdown-selection-for-dt-v0-19"> dt-dt-v0-19"> editit DataTable在下拉菜单中闪闪发光（用于DT V0.19） /a>

DT: Dynamically change column基于从R Shiny App中的另一列中的SelectInput的值

以下代码的问题是：当我尝试更新第二个单元格时，我在第一个单元格中进行的更新消失了。

library(shiny)
library(DT)
#> 
#> Attaching package: 'DT'
#> The following objects are masked from 'package:shiny':
#> 
#>     dataTableOutput, renderDataTable


ui <- fluidPage(
  selectInput("data", "Select a dataset:", choices = c("iris", "mtcars")),
  DTOutput("t1"),
  actionButton("save", "Save")
)

server <- function(input, output, session) {
  tempdf <- NULL

  data <- reactive({
    head(get(input$data))
  })

  output$t1 <- renderDT({
    data()
  }, editable = "cell")

  proxyt1 <- dataTableProxy("t1")

  observeEvent(input$t1_cell_edit, {
    info <- input$t1_cell_edit
    str(info)
    tempdf <<- editData(data(), info)
    # tempdf <<- editData(isolate(data()), info)

    replaceData(proxyt1, tempdf, resetPaging = FALSE)
  })

  # observeEvent(input$save, {
  #   writexl::write_xlsx(tempdf, "~/test.xlsx")
  # })
}

shinyApp(ui, server)
#> PhantomJS not found. You can install it with webshot::install_phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable.

Shiny applications not supported in static R Markdown documents

^由