Shiny 如何让我记忆来自多个selectInputs的各种选择

我有下面的

闪亮应用程序

，其中包含2个

selectInput（）

库（闪亮）
shinyApp(
ui=fluidPage(
选择输入（“变量”，“变量：”，
c（“A”=“A”，
“B”=“B”，
“C”=“C”）），
uiOutput（“更多控件”）
),
服务器=功能（输入、输出）{
输出$MONETCROLLS 
您应该考虑为您的选择输入对象实现。
编写模块后，您可以根据需要多次调用该模块，只要每次都提供一个唯一的ID。
您是否总是希望用户从每个x、y和z值中进行选择？如果是这样，我将放弃If语句，而是添加3个不同的UIOutput。这是为了分类。假设我有3个权益类，即：银行、农业和其他，在每个类别中，我有多个权益名称。我认为对于用户来说，这样的分类信息更丰富。我可以添加3个不同的UIOutput，但在我的实际场景中，我有这么多的类别，总共20个。因此，放置这么多不同的UIOutput，会让我的应用程序非常吵闹。这不是答案，最合适的答案应该是添加评论
library(shiny)
shinyApp(
  ui = fluidPage(
    selectInput("variable", "Variable:",
                c("A" = "A",
                  "B" = "B",
                  "C" = "C")),
    uiOutput("moreControls")
  ),
  server = function(input, output) {
    output$moreControls <-  renderUI({
            Choice = input$variable
            if (Choice == 'A') Result = c('X1', 'X2', 'X3')
            if (Choice == 'B') Result = c('Y1', 'Y2', 'Y3')
            if (Choice == 'C') Result = c('Z1', 'Z2', 'Z3')

            selectInput("variable1", "Variable-1:", Result)
      })
  }
)