R for Leaflet의 레이어 그룹을 기반으로 WMS 범례를 표시하는 방법은 무엇입니까?

Question

Shiny의 R에 대한 전단지 및 전단지에 레이어 그룹을 기반으로 WMS 범례를 표시하려고합니다. here에 설명 된대로 $ map_groups 입력을 사용하고 있지만 WMS 범례를 숨기거나 토글하는 방법에 대한 아이디어는 없습니다.

감사합니다,

후안

library(shiny) 
library(leaflet) 
library(leaflet.extras) 

# User Interface 
ui <- bootstrapPage(
    tags$style(type="text/css", "html, body {width:100%;height:100%}"), 
    leafletOutput("map", width="100%", height="100%") 
) 

##### Shiny function server side 

    server = function(input, output, session) { 

    output$map <- renderLeaflet({ 
     leaflet() %>% 
     addProviderTiles("CartoDB.DarkMatter", options = tileOptions(minZoom = 0))%>% 
     addTiles(urlTemplate ="http://dataportal-dev.aquacross.eu/geoserver/gwc/service/tms/1.0.0/general:g2015_simplified@EPSG:900913@png/{z}/{x}/{y}.png", 
       options = tileOptions(noWrap = TRUE, tms = TRUE, opacity =0.9),group ="P1", layerId ="test")%>% 
     addTiles(urlTemplate ="http://dataportal-dev.aquacross.eu/geoserver/gwc/service/tms/1.0.0/general:country@EPSG:900913@png/{z}/{x}/{y}.png", 
        options = tileOptions(noWrap = TRUE, tms = TRUE, opacity =1),group ="P2", layerId ="test2")%>% 
     # addWMSLegend(position = "topright",uri='http://dataportal-dev.aquacross.eu/geoserver/wms?REQUEST=GetLegendGraphic&VERSION=1.0.0&FORMAT=image/png&WIDTH=50&HEIGHT=20&LAYER=g2015_simplified', layerId ="test")%>% 
     addLayersControl(
     baseGroups = c("P1", "P2"), 
     options = layersControlOptions(collapsed =FALSE) 
    ) 
     }) 

## This is an attempt to show WMS legend maps based in groups 

     observeEvent(input$map_groups,{ 
     map <- leafletProxy("map") %>% clearControls() 
     if (input$map_groups == 'P1') 
     { 
     map %>% addWMSLegend(position = "topright",uri='http://dataportal-dev.aquacross.eu/geoserver/wms?REQUEST=GetLegendGraphic&VERSION=1.0.0&FORMAT=image/png&WIDTH=20&HEIGHT=50&LAYER=g2015_simplified', layerId ="test") 
     } 
     else if (input$map_groups == 'P2') 
     { 
     map %>% addWMSLegend(position = "topright",uri='http://dataportal-dev.aquacross.eu/geoserver/wms?REQUEST=GetLegendGraphic&VERSION=1.0.0&FORMAT=image/png&WIDTH=20&HEIGHT=20&LAYER=topp:states', layerId ="test2") 
     } 
    }) 
} 

shinyApp(ui, server) 

Answer 1

나는 코드로 주위 재생, 그리고 addWMSLegend 함수가 if 문 내에서 작동하지 않는 것 같다. 그러나 이것은 일반적인 파이프 관용구에서 작동하지만 원하는 것은 아닙니다. 표준 addLegend 함수는 다음 코드와 같이 if 문에서 정상적으로 작동합니다. 나는 당신의 코드를 일부 정리했다.

library(shiny) 
library(leaflet) 
# devtools::install_github('bhaskarvk/leaflet.extras') 
library(leaflet.extras) 

link1 <- "http://dataportal-dev.aquacross.eu/geoserver/gwc/service/tms/1.0.0/general:g2015_simplified@EPSG:900913@png/{z}/{x}/{y}.png" 
link2 <- "http://dataportal-dev.aquacross.eu/geoserver/gwc/service/tms/1.0.0/general:country@EPSG:900913@png/{z}/{x}/{y}.png" 
link3 <- "http://dataportal-dev.aquacross.eu/geoserver/wms?REQUEST=GetLegendGraphic&VERSION=1.0.0&FORMAT=image/png&WIDTH=50&HEIGHT=20&LAYER=g2015_simplified" 
link4 <- "http://dataportal-dev.aquacross.eu/geoserver/wms?REQUEST=GetLegendGraphic&VERSION=1.0.0&FORMAT=image/png&WIDTH=20&HEIGHT=50&LAYER=g2015_simplified" 

ui <- bootstrapPage(
    tags$style(type = "text/css", "html, body {width:100%;height:100%}"), 
    leafletOutput("map", width = "100%", height = "100%") 
) 

server = function(input, output, session) { 
    output$map <- renderLeaflet({ 
    leaflet() %>% 
     addProviderTiles("CartoDB.DarkMatter", options = tileOptions(minZoom = 0), group = "P0", layerId = "DM") %>% 
     addTiles(urlTemplate = link1, options = tileOptions(noWrap = TRUE, tms = TRUE, opacity = 1), group = "P1", layerId = "test") %>% 
     addTiles(urlTemplate = link2, options = tileOptions(noWrap = TRUE, tms = TRUE, opacity = 1), group = "P2", layerId = "test2") %>% 
     addWMSLegend(uri = link3, position = "topleft", layerId = "legend") %>% 
     addLayersControl(baseGroups = c("P0", "P1", "P2"), options = layersControlOptions(collapsed = FALSE)) 
    }) 

    observeEvent(input$map_groups, { 
    map <- leafletProxy("map") %>% clearControls() 
    if (input$map_groups == "P0") { 
     map <- map %>% addLegend(
     layerId = "legend", 
     title = "Legend", 
     position = "topleft", 
     values = c(1, 2), 
     labels = c("Gray", "Black"), 
     colors = c("gray", "black")) 
    } else if (input$map_groups == "P1") { 
     map <- map %>% addLegend(
     layerId = "legend", 
     title = "Legend", 
     position = "topleft", 
     values = c(1, 2), 
     labels = c("Gray", "Lemonchiffon"), 
     colors = c("gray", "lemonchiffon")) 
     # map <- map %>% addWMSLegend(layerId = "legend", uri = link3, position = "topleft") 
    } else if (input$map_groups == "P2") { 
     map <- map %>% addLegend(
     layerId = "legend", 
     title = "Legend", 
     position = "topleft", 
     values = c(1, 2), 
     labels = c("Gray", "Tan"), 
     colors = c("gray", "tan")) 
    } 
    }) 

} 

shinyApp(ui, server)