在 R Shiny 中垂直居中导航栏选项卡

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

问题是 bootstrap css 没有被样式 sheet 覆盖。为了设置应用程序的样式，必须使用 !important 才能使其正常工作。

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

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

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

在 R Shiny 中垂直居中导航栏选项卡

Centering Navbar Tab Vertically in R Shiny

r

twitter-bootstrap-3

shiny