在shinydashboard中默认隐藏侧边栏

Question

我曾经shinydashboard创建我的应用程序.我想在桌面环境(例如Windows)上默认隐藏sidear,但不要禁用它.在移动设备上,边栏默认为隐藏.我想我需要改变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版本,但您也可以检查/更改它.

Answer 2

这与我在另一个SO线程中的答案非常相似:"从服务器端禁用/启用侧栏"

这个代码可以通过在应用程序启动时隐藏侧边栏来执行您想要的操作(使用包shinyjs)

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- shinyUI(dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    useShinyjs()
  )
))

server <- shinyServer(function(input, output, session) {
  addClass(selector = "body", class = "sidebar-collapse")
})

shinyApp(ui = ui, server = server)