-
Grelot Frederic authored
- catnat dataset remplace gaspar dataset - passage en array pour garder les types d'aléa - estimate_catnat_freq incluse dans la librairie - population dataset pour la population - clc_color dataset pour les couleurs et label de clc - map_so_ii inclus population, gère les légendes pour les thèmes - dossier script hors librairie por garder la trace des mises à jour des données (doit aller dand floodam.data) 0 errors
| 0 warnings | 1 note Mais la note concerne le temps...9dbbbaeb
# code to prepare `so_ii_catnat` dataset goes here
so_ii_catnat = read.csv2(
geau::current_version("data-common/so-ii/gaspar", "catnat-")
)
alea_scope = c("inondation", "nappe", "submersion")
so_ii_catnat = so_ii_catnat[ so_ii_catnat[["alea"]] %in% alea_scope, ]
so_ii_catnat[["commune"]] = factor(
so_ii_catnat[["commune"]],
levels = so_ii_scope
)
so_ii_catnat[["alea"]] = factor(
so_ii_catnat[["alea"]],
levels = alea_scope
)
so_ii_catnat = estimate_catnat_freq(
so_ii_catnat[["commune"]],
so_ii_catnat[["date.start"]],
so_ii_catnat[["alea"]]
)
# updating datasets
actual = setwd("geau")
usethis::use_data(so_ii_catnat, internal = FALSE, overwrite = TRUE)
setwd(actual)