发布于 2019-05-16 21:19:42
选项#1遵循美国地质勘探局的this教程。
grp <- c("USGS Topo", "USGS Imagery Only", "USGS Imagery Topo","USGS Shaded Relief", "Hydrography")
GetURL <- function(service, host = "basemap.nationalmap.gov") {
sprintf("https://%s/arcgis/services/%s/MapServer/WmsServer", host,
service)}`
opt <- leaflet::WMSTileOptions(format = "image/png", transparent = TRUE)
map <- leaflet::leaflet()
map <- leaflet::addWMSTiles(map, GetURL("USGSHydroCached"),
group = grp[5], options = opt, layers = "0")
map <- leaflet::hideGroup(map, grp[5])`
选项#2默认情况下,CreateWebMap
函数使用inlmisc
包添加水文基线图层
https://stackoverflow.com/questions/56156968
复制相似问题