調整在dashboardHeader整個標題欄的高度光澤的儀表盤

Question

我已經看到，有一個類似的問題在這裏：

Adjust height of dashboardheader in shinydashboard

，但我沒有信譽在給定的回答進行評論。

給出這個答案的解決方案將工作在我想擴大頭的大小的情況下。但是，當我縮小到20像素這隻會改變標題的標題部分的高度，我想減少閃亮的儀表板中整個標題欄的高度。 這可能嗎？

下面是使用所提到的解決問題的例子：

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)