【发布时间】: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