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

文件＆＃34; AdminLTE.min.css＆＃34; （无论如何，在这个版本的Shinydashboard中它的这个版本）指定＆＃34; white-space：nowrap！important＆＃34;对于＆＃34;侧边栏菜单＆＃34;上课以及＆＃34; li＆＃34; class＆＃34; header＆＃34;这是＆＃34;侧边栏菜单＆＃34;元素的直接后代。类。我看到了＆＃34; li＆＃34;我的Shinydashboard应用程序侧边栏菜单中的元素没有＆＃34;标题＆＃34;上课，所以我覆盖了＆＃34; white-space：nowrap！important＆＃34; （通过将以下CSS添加到自定义CSS文件中，因为包含菜单的＆＃34; ul＆＃34;元素属于＆＃34;侧栏菜单＆＃34;）而被应用：

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

Answer 2

这样的事情

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

shinydashboard边栏菜单溢出

2 个答案: