R 传单缩放控制选项

我正在使用传单在 R 中构建地图工具，我想将缩放限制在某个区域，但是setMaxBounds功能似乎没有任何效果。

library(dplyr)
library(leaflet)
library(tigris)

ohio_map <- leaflet(counties('OH', cb = TRUE)) %>%
  addProviderTiles("CartoDB.Positron") %>%
  addPolygons(weight = .3,
              color = "#229922",
              layerId = ~NAME) %>%
  setMaxBounds(lng1 = -84.800,
               lat1 = 42.000,
               lng2 = -80.500,
               lat2 = 38.400)
ohio_map

这会显示地图的右侧区域，但不会阻止缩小。

最好完全删除缩放控件，这样我就可以用更适合手头应用程序的东西替换导航。我找到了一个缩放控制 http://leafletjs.com/reference-1.0.0.html#control-zoom选项，但无法弄清楚将其放入 R 中的何处以使其正常工作。

编辑：正如@Symbolix 所指出的，setMaxBounds 确实与我正在寻找的不同。我真的只想完全禁用缩放，并删除控件。这缩放控制 http://leafletjs.com/reference-1.0.0.html#control-zoom传单 JavaScript API 文档中描述的选项似乎是我想要的，但我在 R 包中找不到该选项。

要删除缩放控件，请设置zoomControl = FALSE in leafletOptions。例如：

library(leaflet)
leaflet(options = leafletOptions(zoomControl = FALSE)) %>%
    addTiles()

请注意，这不会禁用通过双击或滚动鼠标滚轮进行缩放。您可以通过设置来控制缩放级别minZoom and maxZoom，再次在leafletOptions。要禁用缩放，请设置minZoom等于maxZoom:

leaflet(options = leafletOptions(zoomControl = FALSE,
                                 minZoom = 3, maxZoom = 3)) %>%
    addTiles()

作为奖励，如果您想要地图的“静态”视图，您还可以通过dragging option:

leaflet(options = leafletOptions(zoomControl = FALSE,
                                 minZoom = 3, maxZoom = 3,
                                 dragging = FALSE)) %>%
    addTiles()

请注意，您可能需要安装最新的 github 版本leaflet执行上述选项：

# install github version of leaflet
if (!require('devtools')) install.packages('devtools')
devtools::install_github('rstudio/leaflet')`