r - 更改 navbarPage 的高度

Question

我试图缩小 Shiny 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"))))
))

Answer 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;
                            }')))

将此代码片段添加到您的代码中将产生以下结果:

希望对你有帮助!