r - Shinydashboard可以使用Tabpanels并具有导航栏吗？

我当前正在使用Shinydashboard，但是我想在主体中具有与内容相关的其他sidbar菜单。 Shinydashboard有可能吗？

例如:

我想要这样的东西
https://gallery.shinyapps.io/CDCPlot/

了解当您单击导航栏选项时，边栏菜单以及主体如何变化。

在shinydashboad中有可能吗？我喜欢 Shiny 仪表板的外观和感觉，不希望再回到 Shiny 的状态。

底层代码在这里:https://github.com/NLMichaud/WeeklyCDCPlot/blob/master/ui.R

并使用tabpanels和navbar。 Shinydashboard中有类似的东西吗？

有代码示例吗？

谢谢!

最佳答案

您要问的问题很棘手，可能无法实现，因为在Shinydashboard中，顶级导航控件位于dashboardSidebar内部(左侧)，内容包含在dashboardBody内部(右侧)。如果将navMenu放置在dashboardBody内，则它必须属于特定的侧边栏项目，并且如果您以后单击另一个侧边栏项目，它将消失。

您可能需要更改实现此目标的方式。根据您想做什么，您可以尝试:

创建带有通常会进入顶部菜单的菜单项的仪表板侧栏，并且您可以将该菜单的所有控件置于关联的tabItem下。您甚至可以通过使用server.R中的renderMenu()将其全部动态化:

output$menu <- renderMenu({
   sidebarMenu(id = "sidebMenu",
       menuItem("Load Data", tabName = "loadData", icon = icon("database"),
          actionButton("press", "Press me")
   )
})

这样做的缺点可能是，您可以在侧边栏菜单中放置的控件数量有限，尽管看起来仍然不错。但这就是仪表盘的制作方式。

或者

使用不带侧边栏和dashboardSidebar(disable = TRUE)的全屏仪表板，并以与您提到的示例类似的方式使用导航菜单。您将没有Shinydashboard的侧边栏，并且必须像您的示例一样制作自己的侧边栏。这样，您可能仍会喜欢Shinydashboard提供的其他功能，例如通知，框，外观，状态框等。但这只是一个建议，由您决定。

希望这可以帮助。

关于r - Shinydashboard可以使用Tabpanels并具有导航栏吗？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/32596191/