通过单击现有的切换按钮完全隐藏 shiny 仪表板的左侧边栏而不影响标题部分

Question

如何完全隐藏 shinydashboard() 的左侧边栏而不影响使用已经存在的切换按钮几乎隐藏标题的 header 部分？

## app.R ##
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)

ui <- dashboardPage(
  dashboardHeader(title = "dashboard"
    
  ),
  dashboardSidebar(),
  dashboardBody(
    useShinyjs(),
    tags$hr(),
    tabsetPanel(
      id ="tabA",
      type = "tabs",
      tabPanel("Front",icon = icon("accusoft")),
      tabPanel("Data", icon = icon("table")
      )
    )
  ),
  controlbar = dashboardControlbar()
  
)

server <- function(input, output) {
  
}

shinyApp(ui = ui, server = server)

Answer 1

只需使用shinydashboardPlus::dashboardSidebar()的minified参数：

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

ui <- dashboardPage(
  dashboardHeader(title = "dashboard"),
  dashboardSidebar(minified = FALSE),
  dashboardBody(
    useShinyjs(),
    tags$hr(),
    tabsetPanel(
      id ="tabA",
      type = "tabs",
      tabPanel("Front",icon = icon("accusoft")),
      tabPanel("Data", icon = icon("table")
      )
    )
  ),
  controlbar = dashboardControlbar()
)

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

shinyApp(ui = ui, server = server)

Answer 2

也许您可以改为调用shinydashboard::dashboardSidebar ：

ui <- dashboardPage(
  dashboardHeader(title = "dashboard"),
  shinydashboard::dashboardSidebar(collapsed = TRUE,disable =TRUE),
  dashboardBody(
    useShinyjs(),
    tags$hr(),
    tabsetPanel(
      id ="tabA",
      type = "tabs",
      tabPanel("Front",icon = icon("accusoft")),
      tabPanel("Data", icon = icon("table")
      )
    )
  ),controlbar = dashboardControlbar()
)