Увеличить блестящую карту мира листовки до полной ширины

Question

Кто-нибудь знает, как установить масштаб рендеринга по умолчанию для карты Shiny Leaflet, чтобы полная карта мира увеличивалась в соответствии с шириной окна (т. Е. От -180 ° до 180 ° правильно вписывается в окно)? Я могу установить только масштабирование целыми числами: 2 слишком мало и 3 слишком велико. Воспроизводимый пример:

require(shiny)
require(leaflet)
require(magrittr)

d = data.frame(country = c('China', 'Brazil', 'Canada'), lon = c(105, -52, -95), lat = c(35, -10, 60))

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

  output$mymap <- renderLeaflet({
    leaflet(d) %>% 
      addCircleMarkers(layerId = ~country, lng = ~lon, lat = ~lat, label = ~ country, radius=30) %>% 
      addProviderTiles(providers$Stamen.TonerLite, options = providerTileOptions(noWrap = TRUE,  minZoom=1, maxZoom=18)
      )
  })
}

ui <- fluidPage( 
  tags$head(tags$style(HTML("#mymap { position: fixed; left: 0; top: 0; width: 100vw; height: 100vh !important; }"))
  ),
  leafletOutput("mymap") 
)

shinyApp(ui, server)