Установить более конкретный масштабный слой для png экспорта листовок?

Question

Мне нужно создать и экспортировать несколько карт, которые увеличивают масштаб в определенных областях моего округа. У меня проблема в том, что уровень масштабирования 12 слишком далеко, а уровень масштабирования 13 слишком близко. Есть ли способ установить конкретные границы для PNG-экспорта карты через код?

library(leaflet)
library(mapview)

northmap<-leaflet()  %>% addTiles() %>% 
  setView(lng = -90.264027, lat  = 38.803011, zoom = 12) %>% 
  addProviderTiles("Esri")

mapshot(northmap, file = "northmap1.png",
        remove_controls = c("homeButton", "zoomControl"))

Answer 1

Вы можете установить zoomSnap и zoomDelta в опциях карты, которые позволят уменьшать приращение. Тем не менее, обратите внимание, что фоновые листы существуют только при целочисленных уровнях масштабирования (0, 1, 2 и т. Д.), И поэтому фон может выглядеть немного размытым на промежуточных шагах.

library(leaflet)
library(mapview)
library(leafem) # for mouseControls to check zoom levels

northmap<-leaflet(options = leafletOptions(zoomSnap = 0.25, zoomDelta = 0.25)) %>% 
  addTiles() %>% 
  setView(lng = -90.264027, lat  = 38.803011, zoom = 12.75) %>% 
  addProviderTiles("Esri") %>%
  leafem::addMouseCoordinates()

northmap

mapshot(northmap, file = "northmap1.png",
        remove_controls = c("homeButton", "zoomControl"))

Примечание, ядобавлен leafem::addMouseCoordinates() для включения проверки уровней увеличения.