Css shinydashboard侧边栏菜单溢出

有没有办法在

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)
}

---

像这样的东西怎么样

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

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

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

---

这将适用于这个孤立的案例。它可能不适用于不同的显示或不同的项目。也许您应该在问题中添加另一个示例（或如您所说的不同显示）：）每当我更改文本时，我都需要重新计算

标记$br（）的位置。

。这就是为什么它不能在不同的项目上工作。这听起来像是可以通过设置CSS来解决的问题。类似这样的事情：我也尝试过它和其他一些CSS技巧，但无法找到解决方案。我管理过的最好的是带有

溢出的滚动条
。如果您想将其作为代码的一部分进行修改，您可以始终使用
tags$head（tags$style（PUTCSSCODEHERE））
。如果您愿意从
renderUI
返回这些标记，您可以通过编程方式将css粘贴在一起。您可以展示一个工作示例吗？