如何在 shiny 中添加多个条件面板

Question

我正在尝试构建一个 shiny 应用程序，用户将有 2 个选择，1。 显示状态和 2. 显示统计信息。 如果用户选择显示状态，那么它将显示状态下拉列表，如果用户 select 显示统计信息，那么它将显示统计信息列表。 我写了下面的代码

library('shiny')
ui=fluidPage(
sidebarPanel(
checkboxInput('cb',"show States",FALSE),
conditionalPanel(
  condition = "input.cb==true",
  selectInput("Ind","Select Indian State:",
  c("Maharastra"="MH","Karnataka"="KA","West Bengal"="WB"))
),
 checkboxInput("stat","show statistics"),

conditionalPanel(
  condition1="input.stat==TRUE",
  checkboxGroupInput("disp","Select Statistics:",c("Confirmed"="conf","Recovered"="rec","Deceased"="dec"))

)

)
)
server=function(input,output){}
shinyApp(ui=ui,server = server) 

我的第一个条件输入有效，但第二个无效。 你能建议我更正吗？

Answer 1

你有一个错字

library('shiny')
ui=fluidPage(
    sidebarPanel(
        checkboxInput('cb',"show States",FALSE),
        conditionalPanel(
            condition = "input.cb==true",
            selectInput("Ind","Select Indian State:",
                        c("Maharastra"="MH","Karnataka"="KA","West Bengal"="WB"))
        ),
        checkboxInput("stat","show statistics",FALSE),

        conditionalPanel(
            condition="input.stat==true",
            checkboxGroupInput("disp","Select Statistics:",c("Confirmed"="conf","Recovered"="rec","Deceased"="dec"))

        )

    )
)
server=function(input,output){}
shinyApp(ui=ui,server = server)