誰もリーフレットRにWMSレイヤの凡例を追加する方法を知っていますか？

Question

リーフレットRにWMSタイルレイヤーの凡例を追加する方法を知っている人はいますか？

Answer 1

リーフレットにはaddWMSLegend()を使用できます。 WMS凡例サービスの正しいURIをaddWMSLegend()に設定することができます。例：

library(leaflet) 
library(leaflet.extras) 
leaflet()%>% 
    addTiles(urlTemplate = 'the url of your basemap service', 
     options=tileOptions(useCache=T,crossOrigin=T))%>% 
    addWMSTiles(baseUrl = 
     paste0('http://',geoserver.host,':8080/geoserver/gwc/service/wms'), 
     layers ='workspace:layer', 
     options = WMSTileOptions(format = "image/png", transparent = TRUE), 
     attribution = "")%>% 
    addWMSLegend(uri=paste0('http://',geoserver.host, 
     ':8080/geoserver/gwc/service/wms?', 
     'REQUEST=GetLegendGraphic&VERSION=1.0.0', 
     '&FORMAT=image/png&LAYER=workspace:layer'))