如何使用默认不折叠的 menuSubItem 部署 R shinydashboard答案

【问题标题】：How to deploy R shinydashboard with menuSubItem not collapsed by default如何使用默认不折叠的 menuSubItem 部署 R shinydashboard
【发布时间】：2016-11-17 23:11:01
【问题描述】：

下面是shinydashboard 的一些简单示例代码，在menuItem 下有各种subMenuItem 对象。默认情况下，部署应用程序时，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)

【问题讨论】：

标签： r shiny shinydashboard

【解决方案1】：

您可以使用Javascript更改菜单元素的默认显示样式（默认为display:none，需要更改为display:block）。在menuItem()之后添加以下行（记得加逗号）

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

【讨论】：

如果有两个menuItems，我如何将display: block 分配给其中一个？也许带有 id 标签？

【解决方案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')
      )
    )
  ),

【讨论】：