shinydashboard Przepełnienie menu paska bocznego

Question

Czy istnieje jakiś sposób dopasowania tekstu na stronie shinydashboard z zawijaniem słów? Domyślnym zachowaniem wydaje się być rozlewanie się na obszar ciała.

Chciałbym uniknąć modyfikowania css bezpośrednio, ale jeśli istnieje obejście, które wymaga modyfikacji CSS jako części samego kodu serwera/ui, jestem otwarty na to.

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

co coś takiego

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

Answer 2

Plik "AdminLTE.min.css" (ta wersja to i tak w tej wersji Shinydashboard) określa "white-space:! Nowrap ważne" dla klasy "sidebar-menu" oraz "li" elementów z klasą "header", które są bezpośrednimi potomkami elementów z klasą "sidebar-menu". Zauważyłem, że elementy "li" w menu na pasku bocznym mojej aplikacji Shinydashboard nie mają klasy "header", więc przejąłem "white-space: nowrap! Important" (to było stosowane, ponieważ element "ul" zawierający menu jest klasy "sidebar-menu"), dodając następujące CSS do niestandardowego pliku CSS:

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