如何让多Tab面板的R Shiny应用记住输入与输出状态

开发了一个包含2个tabPanel()的R Shiny应用，支持用户上传Excel文件。上传后生成selectizeInput()组件供用户选择x、y变量，输出单x多y的堆叠plotly()图表。Tab1对应Excel的sheet1及变量选择，Tab2对应sheet2及变量选择，但切换Tab时，x、y变量选择会被重置（仅保留sheet选择），需要实现切换Tab时保留各Tab的输入状态。

核心思路是通过reactiveValues存储每个Tab的输入状态，结合tabsetPanel的激活状态监听，在切换Tab时恢复对应Tab的x、y变量选择。以下是修改后的完整代码：

library(shiny)
library(readxl)
library(plotly)
library(tidyr)

ui <- fluidPage(
  titlePanel("多Tab输入状态保留示例"),
  sidebarLayout(
    sidebarPanel(
      fileInput("excel_file", "上传Excel文件", accept = c(".xlsx", ".xls")),
      # 为tabsetPanel设置id，用于监听当前激活的Tab
      tabsetPanel(
        id = "active_tab",
        tabPanel("Tab1",
                 selectInput("sheet1", "选择Sheet1", choices = NULL),
                 uiOutput("tab1_x_select"),
                 uiOutput("tab1_y_select")
        ),
        tabPanel("Tab2",
                 selectInput("sheet2", "选择Sheet2", choices = NULL),
                 uiOutput("tab2_x_select"),
                 uiOutput("tab2_y_select")
        )
      )
    ),
    mainPanel(
      plotlyOutput("stacked_bar_plot")
    )
  )
)

server <- function(input, output, session) {
  # 初始化存储各Tab输入状态的变量
  tab_input_states <- reactiveValues(
    tab1 = list(x_var = NULL, y_vars = NULL),
    tab2 = list(x_var = NULL, y_vars = NULL)
  )
  
  # 读取上传的Excel文件
  uploaded_excel <- reactive({
    req(input$excel_file)
    input$excel_file$datapath
  })
  
  # 获取Excel所有sheet名称
  excel_sheets <- reactive({
    req(uploaded_excel())
    excel_sheets(uploaded_excel())
  })
  
  # 更新Tab1的Sheet选择框
  observe({
    req(excel_sheets())
    updateSelectInput(session, "sheet1", choices = excel_sheets(), selected = excel_sheets()[1])
  })
  
  # 更新Tab2的Sheet选择框
  observe({
    req(excel_sheets())
    updateSelectInput(session, "sheet2", choices = excel_sheets(), selected = excel_sheets()[2])
  })
  
  # 加载Tab1选中Sheet的数据
  tab1_data <- reactive({
    req(input$sheet1, uploaded_excel())
    read_excel(uploaded_excel(), sheet = input$sheet1)
  })
  
  # 加载Tab2选中Sheet的数据
  tab2_data <- reactive({
    req(input$sheet2, uploaded_excel())
    read_excel(uploaded_excel(), sheet = input$sheet2)
  })
  
  # 渲染Tab1的X变量选择框，绑定已保存的状态
  output$tab1_x_select <- renderUI({
    req(tab1_data())
    col_names <- names(tab1_data())
    selectizeInput(
      "tab1_x", "选择X变量",
      choices = col_names,
      selected = tab_input_states$tab1$x_var
    )
  })
  
  # 渲染Tab1的Y变量选择框，绑定已保存的状态
  output$tab1_y_select <- renderUI({
    req(tab1_data())
    col_names <- names(tab1_data())
    selectizeInput(
      "tab1_y", "选择Y变量（可多选）",
      choices = col_names,
      multiple = TRUE,
      selected = tab_input_states$tab1$y_vars
    )
  })
  
  # 渲染Tab2的X变量选择框，绑定已保存的状态
  output$tab2_x_select <- renderUI({
    req(tab2_data())
    col_names <- names(tab2_data())
    selectizeInput(
      "tab2_x", "选择X变量",
      choices = col_names,
      selected = tab_input_states$tab2$x_var
    )
  })
  
  # 渲染Tab2的Y变量选择框，绑定已保存的状态
  output$tab2_y_select <- renderUI({
    req(tab2_data())
    col_names <- names(tab2_data())
    selectizeInput(
      "tab2_y", "选择Y变量（可多选）",
      choices = col_names,
      multiple = TRUE,
      selected = tab_input_states$tab2$y_vars
    )
  })
  
  # 保存Tab1的输入状态
  observeEvent(c(input$tab1_x, input$tab1_y), {
    tab_input_states$tab1$x_var <- input$tab1_x
    tab_input_states$tab1$y_vars <- input$tab1_y
  }, ignoreNULL = FALSE)
  
  # 保存Tab2的输入状态
  observeEvent(c(input$tab2_x, input$tab2_y), {
    tab_input_states$tab2$x_var <- input$tab2_x
    tab_input_states$tab2$y_vars <- input$tab2_y
  }, ignoreNULL = FALSE)
  
  # 根据当前激活的Tab获取对应的数据和变量选择
  current_plot_params <- reactive({
    req(input$active_tab)
    if (input$active_tab == "Tab1") {
      list(
        data = tab1_data(),
        x = input$tab1_x,
        y = input$tab1_y
      )
    } else {
      list(
        data = tab2_data(),
        x = input$tab2_x,
        y = input$tab2_y
      )
    }
  })
  
  # 生成堆叠Plotly柱状图
  output$stacked_bar_plot <- renderPlotly({
    req(current_plot_params()$x, current_plot_params()$y)
    plot_data <- current_plot_params()$data
    x_col <- current_plot_params()$x
    y_cols <- current_plot_params()$y
    
    # 转换为长格式数据
    long_data <- pivot_longer(plot_data, cols = all_of(y_cols), names_to = "类别", values_to = "数值")
    
    plot_ly(long_data, x = ~.data[[x_col]], y = ~数值, color = ~类别, type = "bar") %>%
      layout(title = "单X多Y堆叠柱状图", xaxis = list(title = x_col), yaxis = list(title = "数值"), barmode = "stack")
  })
}

shinyApp(ui, server)

1. 状态存储容器：用reactiveValues创建tab_input_states，分别存储Tab1和Tab2的x、y变量选择值，避免切换Tab时状态丢失。
2. UI渲染绑定状态：在renderUI生成selectizeInput时，通过selected参数绑定对应Tab的存储值，实现切换Tab时自动恢复之前的选择。
3. 实时同步状态：用observeEvent监听每个Tab的x、y输入变化，实时更新tab_input_states中的存储值，确保状态同步。
4. Tab激活监听：通过input$active_tab（tabsetPanel的id）获取当前激活的Tab，在渲染图表时调用对应Tab的数据和变量选择。

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