Shiny仪表板中的条件面板

Posted 2023-03-22

【中文标题】Shiny仪表板中的条件面板

【英文标题】：Conditional panel in Shiny dashboard

【发布时间】：2015-07-07 16:01:31

【问题描述】：

我对闪亮仪表板中的条件面板有疑问。是否有可能在sidebarMenu 中以menuItem 的条件制作条件面板？我的目标是在单击菜单选项卡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 中，可以通过将, value=1 添加到选项卡来完成，但在这里它不起作用。有谁知道任何解决方案？ 在此先感谢:)

【参考方案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())