为什么WMS不能在R叶中加载addWMSTiles()

Question

我有一个可以在QGIS中加载的WMS，但不能在R中加载传单。

有人看到我做错了什么吗？

WMS URL如下：

http://www.umweltkarten.mv-regierung.de/script/mv_a3_wasserschutz_wms.php

以下几行仅显示OSM底图，而不显示WMS层。

leaflet() %>% addTiles() %>% setView(lat = 53.8, lng = 12.6, zoom = 8) %>% 
              addWMSTiles("http://www.umweltkarten.mv-regierung.de/script/mv_a3_wasserschutz_wms.php?", 
              layers = "t3_wsg", 
              options = WMSTileOptions(format = "image/png", version = "1.3.0"))

Answer 1

它应该可以使用mapview的开发版本。

    library("devtools")
    install_github("environmentalinformatics-marburg/mapview", ref = "develop")

首先，你必须定义你的在线服务的参数。这是更多或更少的技巧。特别是在肺WMS服务器的情况下，因为它不是非常符合OGC的设置。要处理此主题，您可以在projView vignette上找到一些解释。

如果你分析getCapabilities output，你会发现支持的投影。

您可以使用包` `data("map.types")中的示例列表作为进一步增强或调整的蓝图。LUNG WMS服务器作为一个用例进行了集成。

然后，您可以加载要映射的任意sp*对象。我把GADM的level2数据带到了德国。库(Mapview)库(光栅)

    # get Germany boundary
    ger<-getGeoData('GADM', country='DEU', level=1)

    # define service
    data("map.types")

    # create map
    projView(ger, map.types= map.types$LMV)

结果应该如下所示：

​

​