R 将有光泽的传单世界地图缩放到全宽

是否有人知道如何设置有光泽的传单贴图的默认渲染缩放，以便全世界贴图缩放以适合窗口宽度（即-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)

require（闪亮）
要求（单张）
需要（magrittr）
d=data.frame（国家=c（‘中国’、‘巴西’、‘加拿大’），lon=c（105，-52，-95），lat=c（35，-10,60））
服务器%
addProviderTiles（providers$Stamen.TonerLite，options=providerTileOptions（noWrap=TRUE，minZoom=1，maxZoom=18）
)
})
}
用户界面