shinydashboard Sidebar Menu Overflow

Question

C'è un modo per adattare una sorta di testo su shinydashboard con il wrap di parole? Sembra che il comportamento predefinito si diffonda nell'area del corpo.

Vorrei evitare di modificare css direttamente, tuttavia se c'è una soluzione che comporta la modifica CSS come parte del codice server/ui stesso, allora sono aperto a questo.

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

che dire qualcosa di simile

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

Answer 2

Il file "AdminLTE.min.css" (questa versione di esso in ogni caso in questa versione di Shinydashboard) specifica "white-space: nowrap importante" per la classe "sidebar-menu" e gli elementi "li" con "header" di classe che sono diretti discendenti di elementi con la classe "sidebar-menu". Ho visto che gli elementi "li" nel menu della barra laterale della mia applicazione Shinydashboard non hanno la classe "header", quindi ho annullato "white-space: nowrap! Important" (che veniva applicato perché l'elemento "ul" che contiene il menu è di classe "barra laterale-menu") aggiungendo il seguente CSS a un file CSS personalizzato:

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