在闪亮的应用程序中调整导航栏菜单的高度

Question

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

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

请参阅降低 bootstrap 3.0 导航栏的高度。

要修改的高度，你可以修改这个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)