閃亮儀表板中的條件面板

Question

我對閃亮儀表板中的條件面板有疑問。 是否有可能在sidebarMenu上的menuItem上sidebarMenu帶條件的條件面板？ 我的目標是在單擊菜單選項卡title2后獲得額外的selectInput （但它應該對title1選項卡保持不可見）。

我正在做類似的事情

ui <- dashboardPage(
    dashboardHeader(title = "Basic Dashboard"),
    dashboardSidebar(
        sidebarMenu(
            menuItem("tab title1", tabName = "name1", icon = icon("th")),
            menuItem("tab title2", tabName =  "name2", icon = icon("th"))
         ),
        conditionalPanel(
            condition = "input.tabName == 'name2'",
            selectInput("period", "Period:", 
                        choices = list("Years" = 1, "Months" = 2))
        )
        ),
    dashboardBody())

在標准shiny它可以通過add , value=1來完成，但是在這里它不起作用。 有誰知道任何解決方案？ 提前致謝 ：）

Answer 1

向sidebarMenu添加額外的參數id可以解決問題。

ui <- dashboardPage(
dashboardHeader(title = "Basic Dashboard"),
dashboardSidebar(
    sidebarMenu(id="menu1",
        menuItem("tab title1", tabName = "name1", icon = icon("th")),
        menuItem("tab title2", tabName =  "name2", icon = icon("th"))
     ),
    conditionalPanel(
        condition = "input.menu1 == 'name2'",
        selectInput("period", "Period:", 
                    choices = list("Years" = 1, "Months" = 2))
    )
    ),
dashboardBody())