new theme 'chatchment'

geau/R/map_so_ii.r

@@ -31,7 +31,7 @@
 map_so_ii = function(
     dataset,
     dataset_legend = NULL,
-    theme = c("none", "clc", "catnat", "hydro", "population"),
+    theme = c("none", "clc", "catnat", "hydro", "population", "catchment"),
     bar = TRUE,
     path = NULL,
     legend_theme = FALSE,
@@ -196,6 +196,33 @@ map_so_ii = function(
         )
     }
 
+    if ("catchment" %in% theme) {
+        if (missing(detail)) {
+            detail = "0"
+        }
+        detail = match.arg(
+            as.character(detail),
+            choices = c("0", "1", "2")
+        )
+        selection  = geau::so_ii_catchment[["degre"]] == detail
+        geometry = geau::so_ii_catchment[["geometry"]][selection]
+        border = "grey80"
+        color =  scales::alpha("grey80", .5)
+        lwd = 1
+        plot(geometry, border = border, col = color, lwd = lwd, add = TRUE)
+
+        theme_legend = list(
+            title = sprintf("Unit\u00e9 administrative"),
+            legend = "Bassin versant",
+            x = "topright",
+            cex = .8,
+            bg = "white",
+            inset = 0.01,
+            fill = unique(color),
+            border = border
+        )
+    }
+
     if (!missing(dataset)) plot(dataset[["geometry"]], add = TRUE, ...)
 
     plot(geau::so_ii_limit, lwd = 2, add = TRUE)