使导航栏标签在R中垂直居中

Question

ui <- shiny::bootstrapPage(
    
    shiny::tags$head(
        # Include custom CSS
        includeCSS("styles.css")
        
    ),
    
    
    shiny::navbarPage(
        
        title = "Test",
        collapsible = TRUE,
        theme       = shinythemes::shinytheme("flatly"),
        
        shiny::tabPanel(
            "Map"
        )
    )
    
    
    
)

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

shinyApp(ui, server)

CSS

.container-fluid {
  height: 80px;
}

.leaflet-top .leaflet-control {
    margin-top: 40px;
}

.navbar-nav li a {
  height: 80px;
}

如何在导航选项卡中将地图文本垂直居中？对于默认的主题，我可以让它工作，但是，对于扁平的主题，我不能让它居中。

Answer 1

问题是引导css没有被样式表覆盖。为了应用程序的风格，一个人必须使用！重要的是让它工作。

.container-fluid {
  height: 80px !important;
}

.leaflet-top .leaflet-control {
    margin-top: 40px !important;
}

.navbar-nav li a {
  height: 80px !important;
}