使用 addWMSTiles 在 R leaflet 中加载 WMS 层

Question

我正在尝试在 R leaflet 包中添加 WMS 切片 - 使用此示例 geoserver 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 = "")