R小册子：缩放控制级别

Question

我想在我的R Leaflet地图中设置缩小最大值。我按照Prevent zooming out in leaflet R-Map?中的上一个问题/回答的示例进行操作，但它不起作用。该线应该能够做到这一点是：

options = providerTileOptions(minzoom = 1, maxzoom = 10)) 

你们可以帮我找出原因吗？

这里是代码：

deck_lf_par_map <- leaflet(lpoints) %>% 
       addPolygons(data = dio, noClip=T, 
          weight = 4, 
          dashArray="5, 1", 
          color = "black", 
          fillOpacity = .01, 
          smoothFactor = 0) %>% 
       setView(lng = mean(lpoints$long), lat = mean(lpoints$lat), zoom = 09) %>% 
       addProviderTiles("Stamen.TonerLite", 
           group = "Toner", 
           options = providerTileOptions(minzoom = 1, maxzoom = 10)) %>% 
       addTiles(group = "OSM") %>% 
       addProviderTiles("Esri.WorldTopoMap",  
           group = "Topo") %>% 
       addProviderTiles("OpenStreetMap.Mapnik", group = "Mapnik") %>% 
       addProviderTiles("CartoDB.Positron",  group = "CartoDB") %>% 
       setMaxBounds((dioc@bbox[1,1] - .3), 
          (dioc@bbox[2,1] - .3), 
          (dioc@bbox[1,2] + .3), 
          (dioc@bbox[2,2] + .3)) %>% 
       addMarkers(lpoints$long, 
         lpoints$lat, 
         popup=ppopup, 
         icon = tec_icon, 
         group="Parishes", 
         clusterOptions = markerClusterOptions()) %>% 
      addLayersControl(baseGroups = c("Toner", "OSM", "Topo", "Mapnik", "CartoDB"), 
         options = layersControlOptions(collapsed = TRUE)) 

Answer 1

几个要点：

1. 这是minZoom和maxZoom（注意资金ž）
2. 你需要在每个Tile功能的选项你想设置 的缩放级别。

---

library(leaflet) 

## the first two tiles have a zoom level control - the others don't 
leaflet() %>% 
    setView(lng = 144, lat = -37, zoom = 09) %>% 
    addProviderTiles("Stamen.TonerLite", 
        group = "Toner", 
        options = providerTileOptions(minZoom = 8, maxZoom = 10)) %>% 
    addTiles(group = "OSM", 
      options = providerTileOptions(minZoom = 8, maxZoom = 10)) %>% 
    addProviderTiles("Esri.WorldTopoMap",  
        group = "Topo") %>% 
    addProviderTiles("OpenStreetMap.Mapnik", group = "Mapnik") %>% 
    addProviderTiles("CartoDB.Positron",  group = "CartoDB") %>% 
    addLayersControl(baseGroups = c("Toner", "OSM", "Topo", "Mapnik", "CartoDB"), 
        options = layersControlOptions(collapsed = TRUE))