问题 闪亮仪表板中的条件面板


我对闪亮仪表板中的条件面板有疑问。是否有可能使条件面板具有条件 menuItem 在 sidebarMenu?我的目标是获得额外的 selectInput 单击菜单选项卡后 title2 (但它应该保持隐形 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 选项卡但在这里它不起作用。有谁知道任何解决方案? 提前致谢 :)


9361
2018-04-28 17:01


起源



答案:


添加额外的参数 id 至 sidebarMenu 解决了这个问题。

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())

14
2018-04-29 10:56