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

下面是

shinydashboard

的一些简单示例代码，其中包含

菜单项下的各种
子菜单项
对象。默认情况下，部署应用程序时，
子菜单项将折叠。有没有办法将其设置为不会倒塌

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)

ui您可以使用Javascript更改菜单元素的默认显示样式（默认情况下，它们是
display:none
，需要更改为
display:block
）。在
menuItem（）
之后添加以下行（请记住也添加逗号）

自OP:
startExpanded
以来可能已添加的功能。默认情况下，对于包含要展开的子菜单项，将其设置为
=TRUE

仪表板侧栏(
侧边栏菜单(
menuItem（'Tabs'，tabName='Tabs'，startExpanded=TRUE，
menuSubItem（'tab1'，tabName='tab1'），
menuSubItem（'tab2'，tabName='tab2'），
menuSubItem（'tab3'，tabName='tab3'）
)
)
),
如果有两个
菜单项
，如何将
display:block
分配给其中一个？也许有身份证？
  tags$head(tags$script(HTML('$(document).ready(function() {$(".treeview-menu").css("display", "block");})')))