Как добавить Legend на карту WMS в R с помощью листовки - PullRequest
Новая
       12

Как добавить Legend на карту WMS в R с помощью листовки

0 голосов
/ 03 октября 2019

Я пытаюсь добавить addWMSLegend из leallet.extras, однако я думаю, что не знаю, как добавить URI 

library("leaflet")
library("leaflet.extras")
library("sp")

    m <- leaflet() %>% 
      addProviderTiles(provider = "Stamen.Terrain") %>% 
      setView(-46, -23, zoom = 4) %>%
      addWMSTiles("http://apps.ecmwf.int/wms/", 
                  layers = "composition_bbaod550", 
                  options = WMSTileOptions(token = "public",
                                           format = "image/png", 
                                           transparent = TRUE,
                                           opacity = 0.7)) %>% 
    addWMSLegend(uri = "https://apps.ecmwf.int/wms/?token=public&service=WMS&request=GetLegendGraphic&FORMAT=image/png&LAYER=Boosmansbos&STYLE=")

Что такое правильный URI? Спасибо!

...