如何在不隐藏标题区的前提下将shinydashboard主头部高度设为0

你的思路方向是对的，但直接设置.main-header {max-height: 0px}会把标题也一起压缩掉——因为标题本身就在主头部容器里。要实现「主头部高度为0（隐藏多余栏位）、保留标题、主体tab和标题水平对齐」，需要精准调整CSS，修改后的代码如下：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "saddasda",
                  tags$li(class = "dropdown",
                          tags$style(HTML("
                            /* 隐藏主头部的导航栏区域（包含侧边栏切换按钮） */
                            .main-header .navbar {
                              display: none;
                            }
                            /* 让主头部只保留标题的高度，移除多余内边距 */
                            .main-header {
                              padding: 0;
                              min-height: auto;
                            }
                            /* 隐藏侧边栏切换按钮 */
                            .sidebar-toggle {
                              display: none;
                            }
                            /* 调整主体内容的上边距，让tab和标题对齐 */
                            .content-wrapper {
                              margin-top: 0;
                            }
                          "))
                  )
  ),
  dashboardSidebar(),
  dashboardBody(
    tabsetPanel(
      id="inTabset",
      tabPanel("show"),
      tabPanel("Hide")
    )
  )
)

server <- function(input, output){}

shinyApp(ui, server)

关键CSS说明： #

• .main-header .navbar {display: none;}：直接隐藏主头部里的导航栏部分，这部分是默认主头部高度的主要来源
• .main-header {padding: 0; min-height: auto;}：移除主头部的内边距，让它的高度自适应标题的高度，不会额外占用空间
• .sidebar-toggle {display: none;}：隐藏左上角的侧边栏切换按钮，因为主头部的导航栏已经隐藏了，这个按钮也不需要显示
• .content-wrapper {margin-top: 0;}：默认主体内容会有margin-top: 50px来避开主头部，现在把这个边距去掉，就能让tab区域和标题处于同一水平位置

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