css - Shinydashboard dashboardSidebar 宽度设置

Question

我正在使用 shiny (0.12.0) 和 shinydashboard (0.4.0) 在 R (RRO 8.0.3 CRAN-R 3.1.3) 中创建一个 UI，我很喜欢我所看到的。但是，我希望能够控制 dashboardSidebar 项的宽度，因为我需要在其中放置一些宽选择器框。

ui <- dashboardPage(
  dashboardHeader(title = "My Dashboard"),
  dashboardSidebar(#stuffhere)  #would like a width param setting
  dashboardBody()
)

有没有办法做到这一点(一些隐藏得很好的宽度参数，或嵌入式 css)，还是我必须回到无聊的 shiny 并从头开始构建它？

Answer 1

侧边栏的宽度由 .left-side 类中的 CSS 设置，因此您可以:

dashboardPage(
  dashboardHeader(title = "My Dashboard"),
  dashboardSidebar( tags$style(HTML("
      .main-sidebar{
        width: 300px;
      }
    ")),selectInput("id","Select a survey",choices=c("Very very very very long text","text"))), 
    dashboardBody()
  )