• Grelot Frederic's avatar
    catnat, population, clc · 9dbbbaeb
    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 :heavy_check_mark: | 0 warnings :heavy_check_mark: | 1 note :heavy_multiplication_x:
    Mais la note concerne le temps...
    9dbbbaeb
so_ii_catnat.R 709 bytes
# 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)