Change height of navbarPage

Question

I am trying to shrink the size of the navigation bar in shiny R. However, even if I change the header size (h3 to h6), the height of the navbarPage stays the same, making it look too big. I have not been successful in decreasing its size, any help would be appreciated!

This is what it looks like:

See here

The code I have currently is below:

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"))))
))

Is this helpful? https://stackoverflow.com/questions/56249756/adjust-the-height-of-navbar-menu-in-a-shiny-app — Ben, Sep 08 '19 at 18:53
Unfortunately not, I tried all the possible solutions posted on stackoverflow.. — pythonlearner, Sep 08 '19 at 19:25

score 2 · Answer 1 · answered Sep 09 '19 at 09:35

You can decrease the height of navbar using the following code in you app:

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

Adding this code snippet to your code will result the following:

Hope it helps!

Change height of navbarPage

1 Answers1