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

像这样的事情怎么样

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