Как добавить несколько условных панелей в блестящие

Question

Я пытаюсь создать блестящее приложение, в котором у пользователя будет 2 варианта: 1. Показать состояния & 2. Показать статистику. Если пользователь выбирает показывать состояния, то он показывает раскрывающийся список состояний, а если пользователь выбирает показывать статистику, он отображает список статистики. Я написал ниже код

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)