开启markerClusterOptions时如何限制Leaflet地图最大缩放？

问题场景 #

• 用R的Leaflet包制作地图，为解决缩小视图时标记点重叠问题，使用markerClusterOptions()实现标记聚类：缩小自动聚合，放大时分离。
• 额外需求：限制地图最大缩放级别，禁止用户放大到街道级（避免泄露标记点精确地址，符合数据保护要求），要求标记点在达到最大缩放时停止分离。
• 初始尝试配置：在tileOptions中设置maxZoom，同时在markerClusterOptions中设置freezeAtZoom，但运行触发报错：

  Error in dirname(to) : path too long

• 环境：Windows系统，代码放在R Markdown块中，块名和文件名长度均合规，仅添加缩放选项时才会报错。

错误原因 #

1. 参数传递错误：调用addTiles()时未明确指定tileOptions对应的参数名，导致函数误将tileOptions对象解析为地图瓦片的文件路径，从而触发「路径过长」的错误。
2. 冗余配置冲突：当地图瓦片已设置maxZoom限制时，无需额外设置freezeAtZoom——否则未聚类的标记点会提前显示，反而违背数据保护的初衷。

修正后的代码示例 #

library(leaflet)

# 示例标记点数据
marker_data <- data.frame(
  lat = c(39.9042, 39.9152, 39.9252, 39.9352),
  lng = c(116.4074, 116.4174, 116.4274, 116.4374)
)

# 正确配置的Leaflet地图
leaflet(marker_data) %>%
  # 明确指定options参数，设置最大缩放级别（示例设为14，可按需调整）
  addTiles(options = tileOptions(maxZoom = 14)) %>%
  # 配置标记聚类，无需设置freezeAtZoom
  addMarkers(
    clusterOptions = markerClusterOptions()
  )

效果说明 #

修正后，地图会在达到设定的maxZoom级别时禁止继续放大，同时标记聚类会在允许的缩放范围内正常完成聚合/分离操作，既解决了标记重叠问题，又满足了数据保护的缩放限制需求。

内容的提问来源于stack exchange，提问作者Amy M