R Shiny Increase dashboardHeader标题高度

Question

我的Shiny信息中心有dashboardHeader，宽度可调titleWidth。但是我无法修改高度。我想增加高度，以便我的仪表板标题和图像（company_logo.png）的高度相同。目前，情况并非如此。

这是我的应用程序的摘录，其中包含标题的代码。

#Header
header=dashboardHeader(title="Dashboard",titleWidth = 250
                   ,tags$li(class = "dropdown",
                            tags$a(href="http://www.google.com/", target="_blank", 
                                   tags$img(height = "30px", alt="SNAP Logo", src="company_logo.png")
                            )))

我怀疑这里有一些CSS，但我对此并不是很有经验。

非常感谢任何帮助。