在 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你可能會看到用法，像這樣

儀表板側邊欄（...，禁用 = FALSE，寬度 = NULL，折疊 = 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)

Answer 3

添加

儀表板側邊欄（折疊 = TRUE）

代替

儀表板側邊欄()

在 UI 頁面中。

Answer 4

或者干脆

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