R：限制“缩放”设置

编程问答 2022-05-21

问题描述

我正在使用 R 编程语言。使用以下代码，我使用“传单”库制作了一个交互式地图：

Lat = round(runif(5000,43,44),4)
Long = round(runif(5000,79,80),4)
a <- rnorm(5000,100,10)

map_data <- data.frame(Lat,Long,a)
map_data$Long = -1 * map_data$Long

#load libraries
    library(leaflet)
    library(leaflet.extras)
    
#make heatmap for variable "a"
    leaflet(map_data) %>%
      addTiles(group="OSM") %>%
      addHeatmap(group="a",lng=~Long,lat=~Lat,max=.6,blur = 60)

enter image description here

有没有办法“限制”“缩放”设置，让用户不能“缩小”太多？

我在 stackoverflow 上找到了以前的答案：R leaflet zoomControl option

但是当我尝试为我的代码调整答案时，它不起作用：

#make heatmap for variable "a"
leaflet(map_data) %>% leaflet(options = leafletoptions(zoomControl = FALSE,minZoom = 3,maxZoom = 3)) %>%
    addTiles(group="OSM") %>%
    addHeatmap(group="a",blur = 60)

Error in UseMethod("MetaData") : 
  no applicable method for 'MetaData' applied to an object of class "c('leaflet','htmlwidget')"

有人可以告诉我我做错了什么吗？

谢谢

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

data-visualizationgeospatialleafletrrzooming