使用 addWMSTiles 在 R 传单中加载 WMS 层

Question

我正在尝试在 R 传单包中添加 WMS 切片 - 使用此示例地理服务器 WMS 不是问题：

leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 4) %>%  addWMSTiles(
"http://sedac.ciesin.columbia.edu/geoserver/wms",
layers = "energy:energy-pop-exposure-nuclear-plants-locations_plants",
options = WMSTileOptions(format = "image/png", transparent = TRUE),
tileOptions(tms = TRUE),
attribution = "")

但是，当我尝试使用 National Map 中的 WMS 时，尽管多次尝试为 url 和图层正确设置参数，但我仍然得到空的传单结果：

leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 4) %>%addWMSTiles(
"http://basemap.nationalmap.gov/arcgis/services/USGSHydroNHD/MapServer/WmsServer?",
layers = "0",
options = WMSTileOptions(format = "image/png", transparent = TRUE),
attribution = "")

我之前没有在 R leaflet 包之外使用过 leaflet，所以在使用这种类型的 WMS 在 leaflet 中设置我的参数时，这可能是一个非常新手的错误

Answer 1

您只需再放大一点，图层就会显示出来。试试这个：

leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 7) %>%addWMSTiles(
"http://basemap.nationalmap.gov/arcgis/services/USGSHydroNHD/MapServer/WMSServer?",
layers = "0",
options = WMSTileOptions(format = "image/png", transparent = TRUE),
attribution = "")

使用 addWMSTiles 在 R 传单中加载 WMS 层

Loading WMS layer in R leaflet using addWMSTiles

r

wms

leaflet