diff --git a/R/fct_params.R b/R/fct_params.R index 6610d0e..b72d456 100644 --- a/R/fct_params.R +++ b/R/fct_params.R @@ -80,6 +80,19 @@ params_wms <- function(){ attribution = "CNRS - EVS", basemap = TRUE, overlayer = FALSE), + continuity = list(name = "Continuité latérale", + url = Sys.getenv("GEOSERVER"), + language = "", + service = "WMS", + version = "1.0.0", + sld_version = "", + layer = "mapdo:mapdo_continuity_1m", + format = "image/png", + sld = "", + style = "mapdo:MAPDO continuity", + attribution = "CNRS - EVS", + basemap = FALSE, + overlayer = TRUE), geologie = list(name = "Géologie", url = "http://geoservices.brgm.fr/geologie", language = "", @@ -155,6 +168,7 @@ params_map_group <- function(){ inondation = params_wms()$inondation$name, ouvrage_protection = params_wms()$ouvrage_protection$name, landuse = params_wms()$landuse$name, + continuity = params_wms()$continuity$name, carteign = params_wms()$carteign$name, ortho = params_wms()$ortho$name, elevation = params_wms()$elevation$name, diff --git a/R/mod_explore.R b/R/mod_explore.R index aa6f6ef..3c4abce 100644 --- a/R/mod_explore.R +++ b/R/mod_explore.R @@ -283,6 +283,14 @@ mod_explore_server <- function(id){ style = "display: flex; align-items: center;", metric_legend(), ), + # landuse map + if (any(input$exploremap_groups %in% params_map_group()$landuse)) { + map_legend_wms_overlayer(wms_params = params_wms()$landuse) + }, + # continuity map + if (any(input$exploremap_groups %in% params_map_group()$continuity)) { + map_legend_wms_overlayer(wms_params = params_wms()$continuity) + }, # zone inondable if (any(input$exploremap_groups %in% params_map_group()$inondation)) { map_legend_wms_overlayer(wms_params = params_wms()$inondation)