добавить полилинии из веб-сервиса на буклет R

Question

Я пытаюсь добавить полилинии из веб-службы на карту буклета R. Я пытался использовать addWMSTiles. Я не получил сообщение об ошибке, но строки не появились.

Информация об источнике веб-службы находится здесь: https://mapcase.deq.idaho.gov/arcgis/rest/services/ID305B_2016_WMS/MapServer/14

library(dplyr)
library(leaflet)

leaflet() %>%
  setView(lat = 46.2271, lng = -116.00293, zoom = 7) %>%
  addProviderTiles("Esri.WorldTopoMap") %>%
addWMSTiles("https://mapcase.deq.idaho.gov/arcgis/rest/services/ID305B_2016_WMS/MapServer/14", layers = "2016 305(b) Lakes (Final) (ID:14)", options = WMSTileOptions(format = "image/png", transparent = TRUE))

Answer 1

Разобрался. Пакет R leaflet.esri предоставляет инструменты для сопоставления данных веб-служб ESRI с листовкой. Минимальный пример:

library(dplyr)
library(leaflet)
library(leaflet.esri)

leaflet() %>%
  setView(lat = 46.2271, lng = -116.00293, zoom = 7) %>%
  addProviderTiles("Esri.WorldTopoMap") %>%
  addEsriFeatureLayer(url = paste0("https://mapcase.deq.idaho.gov/arcgis/rest/services/ID305B_2016_WMS/MapServer/14"),
                      useServiceSymbology = TRUE, weight = 1, fill = FALSE, 
                      labelProperty = "ENTITY_ID", labelOptions = labelOptions(textsize = "12px"), options = featureLayerOptions(useCors = FALSE))