shinydashboard添加第二个导航栏

Posted 2021-05-03

我正在使用shinydashboard构建一个复杂的闪亮应用程序。我们的UI设计器创建了一个具有第二个侧边栏而不是subMenuItems的布局。我的前端体验非常少，但我的工作就是重复闪亮。这样做的最佳方法是什么？

我的想法是采用tabBox函数并对其进行自定义，以便导航栏位于侧面而不是顶部。因此，调整css以使其看起来像我们想要的方式应该是直截了当的，这保留了tabBox附带的简单选项卡控件结构，而不是必须弄清楚自己喜欢的东西。

我设法使标签垂直堆叠，但不知道能够将它们放在一边。以下是我到目前为止：

require(shiny)
require(shinydashboard)

fancy_tabs <- tabBox(width = 12,
                    id = "tabset1", height = "200px",
                    tabPanel("these go", box("wow it really works")),
                    tabPanel("on the side", "pls help")
)
fancy_tabs$children[[1]]$children[[1]]$attribs$class <- "nav flex-column shiny-tab-input"

ui <- dashboardPage(
  dashboardHeader( ),
  dashboardSidebar(
    sidebarMenu(
      menuItem("page 1")
    )
  ),
  dashboardBody(
    fancy_tabs
  )
)

server <- function(input, output, session){}

shinyApp(ui, server)

任何有关如何修复当前示例的帮助都很棒，或者解决第二个侧边栏问题的任何其他方法。一旦我有了一个工作示例，我将把它们全部包装到它自己的函数中。

答案

我能够使用verticalTabsetPanel包中的verticalTabPanel和shinyWidgets函数获得解决方案。我认为有一个更好的解决方案，但它需要比我更多的前端体验。