R shiny:保存来自多个面板的数据框

# 创建一个响应式的数据框
data <- reactive({
  # 从多个面板中获取数据，并合并为一个数据框
  data1 <- input$panel1_data
  data2 <- input$panel2_data
  merged_data <- rbind(data1, data2)
  
  # 返回合并后的数据框
  merged_data
})

# 创建一个全局变量
global_data <- NULL

# 监听面板1中数据的变化
observeEvent(input$panel1_data, {
  # 将面板1中的数据保存到全局变量中
  global_data <<- rbind(global_data, input$panel1_data)
})

# 监听面板2中数据的变化
observeEvent(input$panel2_data, {
  # 将面板2中的数据保存到全局变量中
  global_data <<- rbind(global_data, input$panel2_data)
})

# 创建一个包含多个数据框的响应式对象
data <- reactiveValues(panel1_data = NULL, panel2_data = NULL)

# 在面板1中修改数据框
observeEvent(input$panel1_data, {
  data$panel1_data <- input$panel1_data
})

# 在面板2中修改数据框
observeEvent(input$panel2_data, {
  data$panel2_data <- input$panel2_data
})