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

【问题标题】：Adjust the height of NavBar menu in a shiny app在闪亮的应用程序中调整导航栏菜单的高度
【发布时间】：2019-10-08 12:36:03
【问题描述】：

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

#ui.r
library(markdown)

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

                      ),
                      mainPanel(

                      )
                    )
           ),
           tabPanel("Summary"

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

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

}

【问题讨论】：

标签： r shiny

【解决方案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)

【讨论】：

我一直在试图找出解决这个问题的 CSS。谢谢！！