我有一个显示传单 map 的 Shiny 应用程序。我正在尝试删除 Shiny 仪表板标题和 map 之间的空白区域。我还想删除边距上的空白。我怀疑这样做需要通过 CSS 修改边距或填充,但我还没有找到解决方案。
这是我的应用的简化版本的代码 -
```{r}
ui <- navbarPage("Example Page", id = "nav",
tabPanel("Some Header",
tags$style(type = "text/css", "#map {height:
calc(100vh - 70px) !important;}"),
leafletOutput("map")))
server <- function(input, output, session) {
output$map <- renderLeaflet({
leaflet() %>%
addTiles() %>%
setView(lng = -93.85, lat = 37.45, zoom = 5)})
}
shinyApp(ui, server)
```
这是生成的应用程序的图像。我想知道如何修改此代码以删除所有空格。
示例应用
最佳答案
p0bs,您的评论让我走上了正确的轨道。这是我用来重新格式化这个 Shiny 应用程序的代码,这样就没有空格了 -
```{r}
ui <- navbarPage("Example Page", id = "nav",
tabPanel("Some Header",
tags$style(type = "text/css", "#map {height: calc(100vh -
53px) !important;}"),
leafletOutput("map")),
tags$style(type = "text/css", ".container-fluid {padding-left:0px;
padding-right:0px;}"),
tags$style(type = "text/css", ".navbar {margin-bottom: .5px;}"),
tags$style(type = "text/css", ".container-fluid .navbar-header
.navbar-brand {margin-left: 0px;}"))
server <- function(input, output, session) {
output$map <- renderLeaflet({
leaflet() %>%
addTiles() %>%
setView(lng = -93.85, lat = 37.45, zoom = 5)})
}
shinyApp(ui, server)
```
这是结果的图片 -
关于删除 Shiny 仪表板标题和传单 map 之间的空白,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55458289/