如何在R语言的leaflet包中使用AllMaps Leaflet插件显示瓦片？

背景 #

Leaflet支持使用自定义地图瓦片URL，以下是官方文档中的R语言示例：

library(leaflet)

leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 4) %>%
  addWMSTiles(
    "WMS服务地址",
    layers = "nexrad-n0r-900913",
    options = WMSTileOptions(format = "image/png", transparent = TRUE),
    attribution = "Weather data © 2012 IEM Nexrad"
  )

AllMaps工具可对栅格图像进行地理配准，并基于这些图像创建XYZ瓦片服务器，它还开发了对应的Leaflet插件，以下是官方文档中的JavaScript示例：

import L from 'leaflet'
import { WarpedMapLayer } from '@allmaps/leaflet'

const map = L.map('map', {
  center: [51.052785, 3.730803],
  zoom: 14,
  zoomAnimationThreshold: 1
})

L.tileLayer('基础瓦片服务URL', {
  maxZoom: 18,
  attribution: '&copy; <a href="开源地图版权地址">OpenStreetMap</a> contributors'
}).addTo(map)

const annotationUrl = 'AllMaps标注文件URL'
const warpedMapLayer = new WarpedMapLayer(annotationUrl)
  .addTo(map)

技术问询：是否可以使用R语言的leaflet包，如上述示例所示，显示来自AllMaps的瓦片？

可以实现，主要有两种方案：

方案1：直接加载标准XYZ瓦片 #

如果AllMaps为配准后的图像提供了标准XYZ格式的瓦片地址，可直接用R的leaflet包内置的addTiles()函数加载，示例代码如下：

library(leaflet)

leaflet() %>%
  addTiles(
    urlTemplate = "AllMaps瓦片URL模板（如https://xxx/{z}/{x}/{y}.png）",
    attribution = "AllMaps 数据"
  ) %>%
  setView(lng = 3.730803, lat = 51.052785, zoom = 14)

只需将urlTemplate替换为实际的AllMaps瓦片地址即可，格式需符合Leaflet支持的XYZ瓦片模板规范。

方案2：集成AllMaps的Leaflet插件 #

若需要完整复用AllMaps的地理配准渲染能力，可通过R的htmltools包为leaflet地图添加AllMaps插件的JavaScript依赖，实现方式如下：

library(leaflet)
library(htmltools)

# 创建基础地图实例
base_map <- leaflet() %>%
  addTiles() %>%
  setView(lng = 3.730803, lat = 51.052785, zoom = 14)

# 添加AllMaps Leaflet插件的依赖
allmaps_dep <- htmlDependency(
  name = "allmaps-leaflet",
  version = "最新版本号",
  src = c(href = "AllMaps插件的CDN地址"),
  script = "插件核心JS文件名（如allmaps-leaflet.umd.js）"
)

# 将依赖绑定到地图
base_map$dependencies <- c(base_map$dependencies, list(allmaps_dep))

# 自定义JS代码初始化WarpedMapLayer
final_map <- base_map %>%
  onRender("function(el, x) {
    const map = this;
    const annotationUrl = '你的AllMaps标注文件URL';
    const warpedMapLayer = new allmaps.leaflet.WarpedMapLayer(annotationUrl);
    warpedMapLayer.addTo(map);
  }")

# 渲染地图
final_map

这种方式直接调用AllMaps官方插件的功能，能完美支持地理配准后的图像在R的leaflet地图中展示。

内容的提问来源于stack exchange，提问作者John J.