Вы можете добавить CSS на свою карту, чтобы она занимала всю страницу.Вот пример использования листовки.Затем вы можете добавить absolutePanel()
, если хотите отобразить некоторые элементы в верхней части карты.
library(shiny)
library(leaflet)
ui <- fluidPage (
# set the height of a #map object with CSS
tags$style(type = "text/css", "#map {height: calc(100vh - 10px) !important;}"),
leafletOutput("map"),
#add some panels above the map
absolutePanel(id = "elements", class = "panel panel-default", top = 0, left = 0, width = 300, height = 300,
tags$p("some other elements"))
)
server <- function(input, output) {
# generate the map with leaflet
output$map <- renderLeaflet({
leaflet() %>% addTiles()
})
}
shinyApp(ui = ui, server = server)