如何在Shiny中实现编辑DataTable后点击按钮在新标签页展示结果

没问题，我帮你实现这个功能！下面是完整的可运行代码，之后我会拆解关键部分，让你明白每个环节的作用：

library(shiny)
library(DT)

ui <- shinyUI(fluidPage(
  titlePanel("Editable DataTable Demo"),
  sidebarLayout(
    sidebarPanel(
      actionButton("runButton","Change Dataframes")
    ),
    mainPanel(
      tabsetPanel(
        tabPanel("OldIrisTab", DT::dataTableOutput("OldIris")),
        # 如果需要第二个旧表格，可取消下面注释并补充对应server逻辑
        # tabPanel("OldPetalTab", DT::dataTableOutput("OldPetal")),
        tabPanel("New", DT::dataTableOutput("NewData"))
      )
    )
  )
))

server <- shinyServer(function(input, output, session) {
  # 用reactiveVal存储iris表格的实时状态（包含用户编辑内容）
  current_iris <- reactiveVal(iris)
  
  # 渲染可编辑的旧表格
  output$OldIris <- DT::renderDataTable({
    DT::datatable(
      current_iris(),
      editable = TRUE,  # 开启单元格编辑功能
      options = list(pageLength = 10)  # 设置每页显示行数
    )
  })
  
  # 监听表格编辑事件，实时更新数据状态
  observeEvent(input$OldIris_cell_edit, {
    edit_info <- input$OldIris_cell_edit
    # 取出当前表格数据
    updated_df <- current_iris()
    # 更新被编辑的单元格内容
    updated_df[edit_info$row, edit_info$col] <- edit_info$value
    # 把更新后的数据放回reactiveVal，触发后续响应
    current_iris(updated_df)
  })
  
  # 存储要在New标签页展示的最终数据
  new_display_data <- reactiveVal(NULL)
  
  # 监听按钮点击，将编辑后的旧表格数据传入新标签页
  observeEvent(input$runButton, {
    new_display_data(current_iris())
  })
  
  # 渲染New标签页的表格
  output$NewData <- DT::renderDataTable({
    req(new_display_data())  # 确保有数据后再渲染，避免报错
    DT::datatable(
      new_display_data(),
      options = list(pageLength = 10),
      editable = FALSE  # 新表格设为不可编辑，可根据需求调整
    )
  })
})

shinyApp(ui, server)

关键功能拆解 #

1. 可编辑表格设置：
   在renderDataTable中添加editable = TRUE，这是让用户能直接修改单元格内容的核心配置。

2. 实时保存编辑内容：
   我们用reactiveVal(current_iris)来存储表格的实时状态，每当用户编辑单元格时，input$OldIris_cell_edit会捕捉到编辑的行、列和新值，我们用这些信息更新current_iris，确保后续操作都基于最新的编辑结果。

3. 按钮触发数据传递：
   点击「Change Dataframes」按钮时，observeEvent会把当前current_iris里的最新数据赋值给new_display_data，触发New标签页的表格重新渲染，展示编辑后的内容。

4. 避免空数据报错：
   渲染新表格时用req(new_display_data())，确保只有当按钮被点击、数据已经传入后才渲染表格，防止页面加载时因为空数据出现错误。

如果需要支持多个旧表格（比如你提到的OldP...），只需要复制一套类似的逻辑：添加对应的reactiveVal存储该表格的实时状态，渲染可编辑DT，监听编辑事件，最后在按钮点击时把多个表格的数据整合后传入新标签页即可。

内容的提问来源于stack exchange，提问作者John F