css - shinydashboard 侧边栏菜单溢出

Question

shinydashboard有没有办法用自动换行来适应某种文本？默认行为似乎是让它溢出到身体区域。

我想避免直接修改css，但是如果有一种解决方法涉及将CSS修改为服务器/ ui代码本身的一部分，那么我对此持开放态度。

ui <- dashboardPage(
   dashboardHeader(
      title = "Sidebar spill"

   ),
   dashboardSidebar(
      sidebarMenu(
         menuItem(text = "sfsdf sfaosh oas fwue wi aseiu wehw wuer woeur owuer  ")
         )
      ),
   dashboardBody(
      fluidRow(

      )
   )
)

server <- function(input, output) {

}

shinyApp(ui, server)
}

Answer 1

文件“AdminLTE.min.css”（在这个版本的 Shinydashboard 中仍然是这个版本）为“sidebar-menu”类指定“white-space: nowrap !important”以及具有“header”类的“li”元素" 是具有 "sidebar-menu" 类的元素的直接后代。我看到我的 Shinydashboard 应用程序侧边栏菜单中的“li”元素没有“header”类，所以我覆盖了“white-space: nowrap !important”（因为“ul”元素包含menu 属于“sidebar-menu”类），通过将以下 CSS 添加到自定义 CSS 文件：

.sidebar-menu > li {
    white-space: normal;
}

Answer 2

像这样的东西呢

...
  dashboardSidebar(
    sidebarMenu(
      tags$div(class="header", checked=NA,
               tags$p("sfsdf sfaosh oas fwue", tags$br(), "wi aseiu wehw wuer woeur owuer")
      )
    )
  ),
...