geau Version 1.0.6.1

0 errors  | 0 warnings  | 0 notes 

- map_so_ii -- Correction de "bugs"
	- mettre un numeric en year pour le theme population ne génère plus d'erreurs
	- year est vérifié sur les données pour theme population & catnat

geau/DESCRIPTION

 Package: geau
 Title: Utilities very useful to share within geau-inondation team
-Version: 1.0.6.0
+Version: 1.0.6.1
 Authors@R:
     c(
         person(given = "Frédéric",

geau/R/map_so_ii.r

@@ -159,6 +159,10 @@ map_so_ii = function(
         if (missing(year)) {
             year = utils::tail(sort(colnames(geau::so_ii_population)), 1)
         }
+        year = match.arg(
+            as.character(year),
+            sort(colnames(geau::so_ii_population))
+        )
         population_palette = scales::colour_ramp(c("white", "red"), alpha = .5)
         color = matrix(
             scales::cscale(
@@ -212,9 +216,13 @@ map_so_ii = function(
         border = NA
         color = NA
         if (!missing(year)) {
+            year = match.arg(
+                as.character(year),
+                dimnames(geau::so_ii_catnat)[["period"]]
+            )
             border = "grey80"
             catnat = apply(
-                geau::so_ii_catnat[, as.character(year), detail, drop = FALSE],
+                geau::so_ii_catnat[, year, detail, drop = FALSE],
                 1:2,
                 sum
             )