creation du fichier rda pour package

data-raw/05_creation_donnees_annuelles.R

@@ -114,3 +114,5 @@ indic_ecln <- bind_rows(indic_ecln_cumul, indic_ecln_trim) %>%
 
 rm(indicateurs_non_sommables,Indic_final2,Indic_final,indic_ecln_trim,indic_ecln_cumul,
    TauxEvolution12Mois,FormatDate,FormatCaractere)
+
+usethis::use_data(indic_ecln, overwrite = TRUE)

data-raw/06_filtre_region.R

@@ -5,8 +5,10 @@ mes_epci <- list_epci_in_reg(ma_region)
 mes_departements <- list_dep_in_reg(ma_region)
 
 
-indic_ecln_ma_region <- indic_ecln %>%
+indic_ecln <- indic_ecln %>%
   filter(!(TypeZone == "Régions" & CodeZone != ma_region),   #enlève les régions hors région
          !(TypeZone == "Départements" & !(CodeZone %in% mes_departements)),   #enlève les départements hors région
          !(TypeZone == "Epci" & !(CodeZone %in% mes_epci)),   #enlève les EPCI hors région
          )
+
+usethis::use_data(indic_ecln, overwrite = TRUE)