使RShiny中的单张地图全屏显示

Question

我无法让我在Shiny中的传单地图全屏显示。虽然显然可以手动将地图的宽度和高度设置为我的屏幕尺寸，但是我希望地图能够适应所显示的任何屏幕尺寸。

如何实现地图大小的自动化？

这是到目前为止我一直在尝试的代码。不幸的是，但是，这不能正确调整高度。

library(shiny)
library(leaflet)

location=c(46.52433,10.12633)

ui <- fluidPage(
  tags$head(tags$style(HTML("#map {height:100%, width:100%;}"))),

  leafletOutput("map")


)

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

  output$map = renderLeaflet({
    leaflet() %>% addTiles()  %>% setView(lat = location[1],lng = location[2],zoom = 10) %>% 
      addMarkers(lat = location[1],lng = location[2],popup = "Test") })


}


shinyApp(ui, server)

任何帮助将不胜感激，谢谢！

Answer 1

尝试将width = "100%", height = "100%"添加到leafletOutput并使用fillPage()，如下所示：

Answer 2

使用JavaScript：