在闪亮的应用程序中调整NavBar菜单的高度

Question

我有一个基本的闪亮应用程序，希望在其中设置名为Navnar的Navbar菜单的高度！我看不到任何设置高度的选择。

#ui.r
library(markdown)

navbarPage("Navbar!",
           tabPanel("Plot",
                    sidebarLayout(
                      sidebarPanel(

                      ),
                      mainPanel(

                      )
                    )
           ),
           tabPanel("Summary"

           ),
           navbarMenu("More",
                      tabPanel("Table"
                      )

           )
)
#server.r
function(input, output, session) {

}

Answer 1

要调整导航栏菜单的高度，必须区分引导程序版本。可能在您的闪亮应用程序中使用了引导程序版本3.3.4。 然后您可以使用：

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

请参见Decreasing height of bootstrap 3.0 navbar。

要修改高度，您可以修改此CSS代码，调整height: 25px和min-height:25px中的数字。

可复制示例：

library(shinydashboard)
library(shiny)

ui <- navbarPage("Navbar!",
         tags$head(
           tags$style(HTML('.navbar-nav > li > a, .navbar-brand {
                            padding-top:4px !important; 
                            padding-bottom:0 !important;
                            height: 25px;
                            }
                           .navbar {min-height:25px !important;}'))
         ),
           tabPanel("Plot",
                    sidebarLayout(
                      sidebarPanel(

                      ),
                      mainPanel(

                      )
                    )
           ),
           tabPanel("Summary"

           ),
           navbarMenu("More",
                      tabPanel("Table"
                      )

           )
)

server <- function(input, output, session) {}

shinyApp(ui, server)