时间戳

首页 > 解决方案 > 我不能在闪亮的仪表板中放更多的 menuItem()

user-interface - 我不能在闪亮的仪表板中放更多的 menuItem()

问题描述

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

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-interfaceshinydashboard

解决方案

更改sidebarUserPanel()为sidebarMenu(), 并给出width300 的值。这行得通

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)

推荐阅读