如何使用menuSubItem部署R shinydashboard默认情况下不折叠

Question

下面是一些简单的示例代码,用于在a下shinydashboard使用各种subMenuItem对象menuItem.默认情况下,部署应用程序时,subMenuItems会折叠.有没有办法设置它,以便它们不会崩溃？

ui <- dashboardPage(
  dashboardHeader(title='Head'),
  dashboardSidebar(
    sidebarMenu(
      menuItem('Tabs', tabName='tabs',
        menuSubItem('Tab 1', tabName='tab1'),
        menuSubItem('Tab 2', tabName='tab2'),
        menuSubItem('Tab 3', tabName='tab3')
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName='tab1',
        h1("Tab 1")
      ),
      tabItem(tabName='tab2',
        h1("Tab 2")
      ),
      tabItem(tabName='tab3',
        h1("Tab 3")      
      )
    )
  )
)

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

shinyApp(ui, server)

Answer 1

您可以使用Javascript更改菜单元素的默认显示样式(默认情况下,它们display:none需要更改为display:block).之后添加以下行menuItem()(还记得添加逗号)

  tags$head(tags$script(HTML('$(document).ready(function() {$(".treeview-menu").css("display", "block");})')))

Answer 2

自 OP 以来可能已添加的功能：startExpanded. = TRUE为任何包含您希望默认展开的子项的菜单项设置它。

  dashboardSidebar(
    sidebarMenu(
      menuItem('Tabs', tabName='tabs', startExpanded = TRUE,
        menuSubItem('Tab 1', tabName='tab1'),
        menuSubItem('Tab 2', tabName='tab2'),
        menuSubItem('Tab 3', tabName='tab3')
      )
    )
  ),