shinydashboard Переполнение меню боковой панели

Question

Есть ли способ подгонки какого-то текста на shinydashboard с переносом слов? Поведение по умолчанию, по-видимому, связано с тем, что оно перетекает в область тела.

Я хотел бы избежать изменения css напрямую, однако, если есть обходное решение, которое включает в себя изменение CSS как части самого кода server/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") 
    ) 
    ) 
), 
... 

Answer 2

Файл «AdminLTE.min.css» (этот вариант это в любом случае в этой версии Shinydashboard) определяет «бело-пространство: Nowrap важно» для класса «sidebar-menu», а также «li» с заголовком класса, которые являются прямыми потомками элементов с классом «sidebar-menu». Я видел, что элементы «li» в меню боковой панели моего приложения Shinydashboard не имеют класса «header», поэтому я перепробовал «белое пространство: nowrap! Important» (это применялось, поскольку элемент «ul», содержащий меню имеет класс «sidebar-menu»), добавив следующий CSS в пользовательский файл CSS:

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