Shiny -如何根据用户在原始数据第一个表中的输入更新Shiny中的第二个汇总表？

library(shiny)

# 定义UI
ui <- fluidPage(
  # 第一个表格，用于用户输入原始数据
  tableOutput("input_table"),
  
  # 第二个表格，用于显示汇总结果
  tableOutput("summary_table")
)

# 定义服务器端逻辑
server <- function(input, output) {
  # 响应式对象，用于存储用户输入的原始数据
  data <- reactive({
    # 从用户输入中获取原始数据，可以根据实际情况进行处理
    input$input_table
  })
  
  # 监听用户输入的事件，并更新响应式对象
  observeEvent(input$submit_button, {
    # 更新响应式对象的值，可以根据实际情况进行处理
    data(input$input_table)
  })
  
  # 监听响应式对象的变化，并更新第二个汇总表的数据
  observe({
    # 根据原始数据计算汇总结果，可以根据实际情况进行处理
    summary_data <- calculate_summary(data())
    
    # 将更新后的汇总结果赋值给输出对象
    output$summary_table <- renderTable(summary_data)
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)