R：限制“缩放”设置

如何解决R：限制“缩放”设置

我正在使用 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)

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

我在 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')"

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

谢谢