R宣传单张:缩放控制级别 [英] R Leaflet: Zoom Control Level

问题描述

我正在尝试在我的R Leaflet地图中设置最大缩小.我在防止在单张R-地图?，但是不起作用.应该能够执行此操作的行是:

I am trying to set zoom out maximum in my R Leaflet map. I follow an example of a previous question/answer in Prevent zooming out in leaflet R-Map? , but it doesn't work. The line that should be able to do this is:

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

你们能帮助我找出原因吗?

Can you guys can help me to figure out why?

这是代码:

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

推荐答案

几点:

1. 它是 minZoom 和 maxZoom (注意大写字母 Z )
2. 您需要在每个 Tile 函数中设置的选项的缩放级别.

1. It's minZoom and maxZoom (notice the capital Z)
2. You need the options in each Tile function that you want to set the zoom levels for.

---

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

这篇关于R宣传单张:缩放控制级别的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！