我不能在 shinydashboard 中放置更多 menuItem()

Question

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

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 个菜单子项时，用户界面不再正确显示。

Answer 1

将 sidebarUserPanel() 更改为 sidebarMenu()，并给出 300 的 width。这有效

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)

我不能在 shinydashboard 中放置更多 menuItem()

I can not put more menuItem() in shinydashboard

user-interface

shinydashboard