在shinydashboard中默认隐藏侧边栏答案

【问题标题】：Hide sidebar in default in shinydashboard在shinydashboard中默认隐藏侧边栏
【发布时间】：2016-05-12 05:42:19
【问题描述】：

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

【问题讨论】：

@NicE 谢谢。我只想隐藏侧边栏，而不是禁用它。
dashboardSidebar 现在也有一个折叠的参数。如果为 True，侧边栏将默认折叠。

标签： r shiny shinydashboard

【解决方案1】：

这与我在另一个 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)

【讨论】：

谢谢。我找到了你的答案，但 Rstudio 给了我一条警告消息（参数“id”丢失并且没有默认值）。所以我想应该将一个 id 传递给 addClass 函数。
不，您不需要传递 id 参数。如果你复制这个确切的代码，你会发现它可以正常工作并且没有错误。也许你在做其他奇怪的事情
它对我有用。只需在 RStudio 中看到一条警告消息。
如果上面的确切代码给你一个警告，也许你有一个旧版本的 shinyjs 或闪亮。它应该运行没有任何问题
我已经在此处发布了一个与鼠标悬停相关的后续问题：stackoverflow.com/questions/44899706/…

【解决方案2】：

如果您执行?dashboardSidebar，您可能会看到用法，像这样

dashboardSidebar(..., disable = FALSE, width = NULL, collapsed = 假）

所以这应该可以工作

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

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

【讨论】：

这很好用！还有没有办法禁用侧边栏切换？

【解决方案3】：

或者干脆

ui <- shinyUI(dashboardPage(
  dashboardHeader(),
  dashboardSidebar(collapsed = TRUE),
  dashboardBody()
))

【讨论】：

【解决方案4】：

添加

dashboardSidebar(collapsed = TRUE)

而不是

dashboardSidebar()

在 UI 页面中。

【讨论】：