R Flugblatt: Zoom Control Level

Question

Ich versuche, in meiner R Leaflet-Map das Maximum für das Verkleinern einzustellen. Ich folge einem Beispiel einer vorherigen Frage/Antwort in Prevent zooming out in leaflet R-Map?, aber es funktioniert nicht. Die Linie, die der Lage sein sollte, dies zu tun ist:

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

Könnt ihr mir helfen kann, herauszufinden, warum?

Hier Code:

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

Ein paar Punkte:

1. Es ist minZoom und maxZoom (man beachte die Hauptstadt Z)
2. Sie müssen die Optionen in jeder Tile Funktion, Sie möchten die Zoomstufen für festlegen.

---

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))