R Shiny - 條件面板中的條件面板

Question

我想知道是否有可能在另一個條件面板中有一個條件面板。

例如，如果我有一個包含兩個選項的下拉列表：1和2

選擇1將顯示一組選項，選擇2將顯示一組不同的選項。

但是有可能將條件面板嵌套在這些條件面板中，這樣我就可以在選項1的輸入中有另一個下拉列表。

下面是一些我想要做的例子的代碼，但這不起作用

 selectInput("n", label = h3("Select Option"), 
                choices = list("1" = 1, "2" = 2),
                selected = 1),
  #1
  conditionalPanel(
    condition = "input.n == '1'",
    titlePanel("1 Options"),
    selectInput("b", label = h4("Select Option"), 
                choices = list("A" = 1, "B" = 2),
conditionalPanel(
condition = "input.b == '1'",
    titlePanel("1 Options")
),

conditionalPanel(
condition = "input.b == '2'",
    titlePanel("2 Options")
),

    )),

Answer 1

是的，您可以輕松地嵌套條件面板，或多或少地嘗試。 在你的代碼中，你只是有一些錯位的括號和額外的逗號。 我認為這是一個可以滿足你要求的工作應用程序：

ui <- fluidPage(
  selectInput("n", label = h3("Select Option"), 
        choices = list("1" = 1, "2" = 2),
        selected = 1),
  conditionalPanel(
    condition = "input.n == '1'",
    titlePanel("1 Options"),
    selectInput("b", label = h4("Select Option"), 
          choices = list("A" = 1, "B" = 2)),
    conditionalPanel(
          condition = "input.b == '1'",
          titlePanel("1 Options")
      ),
      conditionalPanel(
          condition = "input.b == '2'",
          titlePanel("2 Options")
      )      
  )
)

server <- function(input, output){}

shinyApp(ui, server)