addWMSTiles不呈现

Question

我正在尝试通过addWMSTiles在R传单中使用特定的切片服务（德国的情商风险）。

但是，由于没有任何内容，因此无法正常工作。

代码如下：

library(leaflet)

map <- leaflet()   %>%
  addProviderTiles(providers$Stamen.TonerLite,group="StamenTonerLite")

wmsserv <- "https://www.gisimmorisknaturgefahren.de/erdbeben_tile"
map <- addWMSTiles(map, wmsserv, layers="erdbeben_tile", options=WMSTileOptions(Format="image/png", TRANSPARENT=TRUE, CRS="EPSG:25832", opacity=0.6))

以下是其中一个图块的link：

https://www.gisimmorisknaturgefahren.de/erdbeben_tile?SERVICE=WMS&VERSION=1.3.0&REQUEST=GetMap&FORMAT=image%2Fpng&TRANSPARENT=true&CRS=EPSG%3A25832&STYLES=&WIDTH=2741&HEIGHT=975&BBOX=-296598.1830774266%2C5073374.667157855%2C1377331.2461184468%2C5668916.062328799

我遇到的主要问题是缺少图层信息... addWMSTiles（）似乎需要它，但是链接没有任何提示。

在此网页上可以看到这些图块： https://www.gisimmorisknaturgefahren.de/immorisk.html