From ee2b912215396a270cb8785afee77120ed5053bc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mani=C3=A8re=20Louis?= <louismaniere@orange.fr>
Date: Wed, 24 Jan 2024 17:29:37 +0100
Subject: [PATCH] add continuity map and landuse legend

---
 R/fct_params.R  | 14 ++++++++++++++
 R/mod_explore.R |  8 ++++++++
 2 files changed, 22 insertions(+)

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)