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)