调整navbarPage（）标题的高度

Question

我想调整navbarPage Menue的大小/高度，因为它占用了大量的空间。

我尝试过一些CSS风格的改编，但由于我是新手，我正在努力一点点。 这就是目前的情况：

Example Image

这是相应的ui：

shinyUI(fluidPage(
shinyjs::useShinyjs(),
navbarPage(
title = h4(style="text-align:center", "Man vs. Machine"),
tabPanel(h4(style="text-align:center","Voting"),
        tags$style("
             .col-sm-8 { /* radioButtons is a div class*/
               margin-top: 20px;
             }"),
fluidRow(column(12,h4("Click the Hydrograph you prefer?")))),
fluidRow(tableOutput("select")),
       tabPanel(h4(style="text-align:center","Results"),
                fluidRow(column(2, textOutput("value"))),
                fluidRow(column(2, textOutput("value2")))))))