如何彻底删除Shiny Dashboard中显示/隐藏侧边栏的切换按钮？

要彻底移除Shiny Dashboard里的侧边栏切换按钮，最直接的方式是通过自定义CSS隐藏该按钮——这个按钮是dashboardHeader默认生成的元素，用CSS强制隐藏就能彻底去掉它。

修改后的完整代码 #

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

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    collapsed = TRUE
  ),
  dashboardBody(
    # 加入自定义CSS隐藏切换按钮
    tags$head(
      tags$style(HTML("
        /* 隐藏侧边栏切换按钮 */
        .sidebar-toggle {
          display: none !important;
        }
      "))
    )
  )
)

server <- function(input, output) { }

shinyApp(ui, server)

补充说明 #

• .sidebar-toggle是Shiny Dashboard给切换按钮分配的专属CSS类名，display: none !important会强制隐藏该元素，!important用来确保样式优先级高于框架默认样式，避免被覆盖
• 如果需要固定侧边栏状态（比如始终保持折叠），保留dashboardSidebar的collapsed = TRUE设置，再配合隐藏按钮，就能完全禁用侧边栏的切换功能

内容的提问来源于stack exchange，提问作者firmo23