调整 shiny dashboard 中 dashboardHeader 中整个 header 栏的高度

Question

我看到这里有一个类似的问题：

Adjust height of dashboardheader in shinydashboard

但我没有资格对给定的答案发表评论。

此答案的解决方案适用于我想扩展 header 的大小的情况。但是，当我将大小减小到 20 像素时，这只会改变 header 标题部分的高度，我想降低闪亮仪表板中整个 header 栏的高度。这可能吗？

下面是一个使用上述问题的解决方案的示例：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    # Set height of dashboardHeader
    tags$li(class = "dropdown",
            tags$style(".main-header {max-height: 20px}"),
            tags$style(".main-header .logo {height: 20px}")
    ) 
  ),
   dashboardSidebar(
    # Adjust the sidebar
    tags$style(".left-side, .main-sidebar {padding-top: 20px}")
  ),
  dashboardBody()
)

server <- function(input, output){}

shinyApp(ui, server)

Answer 1

您需要覆盖导航栏的最小高度和侧边栏切换上的填充。我已经在下面更新了您的示例：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    # Set height of dashboardHeader
    tags$li(class = "dropdown",
            tags$style(".main-header {max-height: 20px}"),
            tags$style(".main-header .logo {height: 20px;}"),
            tags$style(".sidebar-toggle {height: 20px; padding-top: 1px !important;}"),
            tags$style(".navbar {min-height:20px !important}")
    ) 
  ),
   dashboardSidebar(
    # Adjust the sidebar
    tags$style(".left-side, .main-sidebar {padding-top: 20px}")
  ),
  dashboardBody()
)

server <- function(input, output){}

shinyApp(ui, server)

调整 shiny dashboard 中 dashboardHeader 中整个 header 栏的高度

Adjust height of the whole header bar in dashboardHeader in shiny dashboard

shiny

shinydashboard