New theme based on the hydrologic network dataset

geau/R/map_so_ii.r

@@ -6,10 +6,13 @@
 #' @param bar logical, should a bar be plotted
 #' @param path character, the name of the file to save the plot
 #' @param gaspar_year character, the year chosen for gaspar theme
+#' @param hydro_detail character, the niveau of detail in the representation of the hydrographic network
 #' @param ...  some parameters that will be used by plot (from sf)
 #'
 #' @return Nothing useful.
 #' 
+#' @details hydro_detail takes values "1", "2", "3" or "canal"
+#' 
 #' @export
 #'
 #' @encoding UTF-8
@@ -24,10 +27,11 @@
 map_so_ii = function(
     dataset,
     dataset_legend = NULL,
-    theme = c("clc", "gaspar"),
+    theme = c("clc", "gaspar", "hydro"),
     bar = TRUE,
     path = NULL,
     gaspar_year,
+    hydro_detail,
     ...
 ) {
 
@@ -74,6 +78,31 @@ map_so_ii = function(
         )
     }
 
+    if ("hydro" %in% theme) {
+        if(missing(hydro_detail)) {
+            hydro_detail = "0"
+        }
+
+        if(hydro_detail == "canal") {
+            color = scales::alpha("red", .3)
+            so_ii_hydro_toplot = geau::so_ii_hydro[["geometry"]][geau::so_ii_hydro[["degre"]] == hydro_detail]
+            lwd = 1
+        } else {
+            #color = "#dbe8f0"
+            color =  scales::alpha("blue", .3)
+            so_ii_hydro_toplot = geau::so_ii_hydro[["geometry"]][geau::so_ii_hydro[["degre"]] <= hydro_detail]
+            lwd = 4 - as.numeric(geau::so_ii_hydro[["degre"]][geau::so_ii_hydro[["degre"]] <= hydro_detail])
+
+        }
+
+        plot(
+            so_ii_hydro_toplot, 
+            col = color,
+            lwd = lwd, 
+            add=TRUE
+            ) 
+    }
+
     plot(dataset[["geometry"]], add = TRUE, ...)
 
     plot(geau::so_ii_limit, lwd = 2, add = TRUE)