光沢のあるダッシュボード

Question

にdashboardHeader全体ヘッダーバーの高さを調整し、私はここに同様の問題があることを見てきました：

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)