我不能在闪亮的仪表板中放更多的 menuItem()答案

【问题标题】：I can not put more menuItem() in shinydashboard我不能在闪亮的仪表板中放更多的 menuItem()
【发布时间】：2021-05-12 12:15:31
【问题描述】：

这是我构建闪亮仪表板用户界面的代码：

library(shiny)
library(shinydashboard)


## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Analyses de la concurrence inter-hospitalière en IDF"),
  dashboardSidebar(
    sidebarUserPanel(
      menuItem("Analyse des profils d'activité des hôpitaux",
               menuSubItem("Tableaux"),
               menuSubItem("Carte")),
      menuItem("Analyse de la concurrence",
               menuSubItem("Zone de recrutement"),
               menuSubItem("Part de marchés"),
               menuSubItem("Flux des patients"),
               menuSubItem("Indice de Herfindahl-Hirschmann")),
      menuItem("Analyse de trajectoires")
    )),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

我尝试将三个菜单项放在侧边栏面板中，并将四个菜单子项放在其中一个菜单项中。但是，当我在侧边栏面板中放置超过 2 个菜单项并且在菜单项中放置超过 2 个菜单子项时，用户界面不再正确显示。

【问题讨论】：

标签： user-interface shinydashboard

【解决方案1】：

将 sidebarUserPanel() 更改为 sidebarMenu()，并将 width 设为 300。这可行

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Analyses de la concurrence inter-hospitalière en IDF"),
  dashboardSidebar(width = 300,
    sidebarMenu(id="tabs",
      menuItem("Analyse des profils d'activité des hôpitaux",
               menuSubItem("Tableaux"),
               menuSubItem("Carte")),
      menuItem("Analyse de la concurrence",
               menuSubItem("Zone de recrutement"),
               menuSubItem("Part de marchés"),
               menuSubItem("Flux des patients"),
               menuSubItem("Indice de Herfindahl-Hirschmann")),
      menuItem("Analyse de trajectoires")
    )),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

【讨论】：

太棒了。谢谢