我使用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)

推荐答案

这与我在另一个SO帖子中的回答非常相似："disabling/enabling sidebar from server side"

这里的代码可以通过在应用程序启动时隐藏侧边栏(使用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)