r - 在shinydashboard中默认隐藏侧边栏

Question

我用了shinydashboard创建我的应用程序。我想在桌面环境(例如 Windows)的默认情况下隐藏 sidedar，但不要禁用它。在移动设备上，侧边栏默认隐藏。我想我需要更改 css 类，但不知道该怎么做。

感谢您的任何建议。

这是我的播放代码:

library(shiny)

library(shinydashboard)
ui <- shinyUI(dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody()
))

server <- shinyServer(function(input, output, session) {
})

shinyApp(ui = ui, server = server)

Answer 1

如果你做 ?dashboardSidebar你可能会看到用法，像这样

dashboardSidebar(..., disable = FALSE, width = NULL, collapsed = FALSE)

所以这应该有效

sidebar <- dashboardSidebar(
  collapsed = TRUE,
  sidebarMenu()
)

我不确定这是否取决于您的 shinydashboard 版本，但您也可以检查/更改它。