Merge pull request #22 from EVS-GIS/continuity_map

add continuity map and landuse legend
EVS-GIS · Jan 24, 2024 · 1e49781 · 1e49781
2 parents 452f430 + ee2b912
commit 1e49781
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git 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
@@ -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)