Добавить базовую карту набора данных по национальной гидрографии на карту листовки - PullRequest
Новая
       21

Добавить базовую карту набора данных по национальной гидрографии на карту листовки

0 голосов
/ 15 мая 2019

Я хотел бы добавить базовую карту (плитку) NHD (National Hydrography Dataset) к моей карте листовки. Здесь - ссылка, предоставляющая URL-адрес гидрографии, который я пытаюсь использовать. 

leaflet()%>%
  setView(lng = -76.4, lat = 37, zoom = 09) %>% 
  addWMSTiles(baseUrl="https://basemap.nationalmap.gov/arcgis/rest/services/USGSHydroCached/MapServer",
              layers="Hydrography")

Базовая карта, возвращаемая в настоящее время, полностью пуста.Я ожидаю, что это будет выглядеть как this Добавление плиток WMS из других источников работает нормально.

1 Ответ

0 голосов
/ 16 мая 2019

Вариант № 1 Следуйте этому руководству USGS.

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 При использовании пакета inlmisc функция CreateWebMap добавляет базовый слой гидрографии по умолчанию

...