r - addWMSTiles不呈现

我正在尝试通过addWMSTiles在R传单中使用特定的切片服务(德国的EQ风险)。

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

这是代码:

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))

这是其中一个图块的链接

转载请注明来自askonline.tech,本文标题:r - addWMSTiles不呈现


 Top