改变 navbarPage 的高度答案

【问题标题】：Change height of navbarPage改变 navbarPage 的高度
【发布时间】：2019-09-08 16:51:49
【问题描述】：

我正在尝试缩小闪亮 R 中导航栏的大小。但是，即使我将标题大小（h3 更改为 h6），navbarPage 的高度保持不变，使其看起来太大。我没有成功减小它的大小，任何帮助将不胜感激！

这就是它的样子：

我目前的代码如下：

shinyUI(fluidPage( 
 tags$head(
  tags$style(HTML(".leaflet-container { background: #B6D0CE; }"))),
 fluidRow(h3("[Title] Dataset", align = "center", 
         style="padding:10px;")),
 fluidRow(navbarPage(theme = shinytheme("paper"), h6("Menu"),
          collapsible=TRUE, tabPanel(h6("Tab 2"))))
))

【问题讨论】：

这有用吗？ stackoverflow.com/questions/56249756/…
不幸的是，我尝试了stackoverflow上发布的所有可能的解决方案..

标签： r shiny navbar

【解决方案1】：

您可以在您的应用中使用以下代码来降低导航栏的高度：

tags$head(
    tags$style(HTML(' .navbar {
                          height: 25px;
                          min-height:25px !important;
                        }
                      .navbar-nav > li > a, .navbar-brand {
                            padding-top:1px !important; 
                            padding-bottom:1px !important;
                            height: 25px;
                            }')))

将此代码 sn-p 添加到您的代码中将产生以下结果：

希望对你有帮助！

【讨论】：