R Shiny - 不同标签面板的独立选择输入下拉菜单

如何解决R Shiny - 不同标签面板的独立选择输入下拉菜单

我是闪亮的新手，并在下面尝试了几个小时，但不能！！！

我有一个“selectinput”下拉菜单和 3 个选项卡面板。 3 个 tabpanels 的下拉列表是不同的，在您专家的帮助下以某种方式使它们具有反应性。

我面临的问题是，我在 tabpanel 1 的下拉列表中选择了一个选项“X”，然后移动到 tabpanel 2 并在那里选择选项“A”。当我回到 tabpanel1 时，选项“X”消失了，下拉列表是空白的，因为 tabpanel 2 的下拉列表中没有“X”。

谁能帮我解决这个问题？

我尝试过的简化脚本：

selectInput(inputId = 'selected.indicator',NULL,choices = c('')),#######

tabsetPanel(
        tabPanel("tabPanel1",value = 'tab1',tableOutput("table1")),tabPanel("tabPanel2",value = 'tab2',DT::dataTableOutput("table2"),downloadButton(outputId = "download",label = "Download Table")),tabPanel("tabPanel3",value = 'tab3',DT::dataTableOutput("table3")),id ="tabselected"
      )

#######

choices = reactiveValues(
    tab1 = table1$column1,tab2 = table2$column1,tab3 = table3$column1
  )

#######

observeEvent(input$tabselected,{
    
    updateSelectInput(session,'selected.indicator',choices = choices[[input$tabselected]])
    #output$lastselection = renderText(input$selected.indicator)
  })