Adaptation pour faire fonctionner le rmd

modification du format date
export des donees calees

data-raw/data-raw-ecln-sas-R.R

@@ -350,7 +350,8 @@ cale <- bind_rows (Cale_cons, Cale_typ_tot)
 
 # Liste des indicateurs à caler
 
-Indic_a_caler <- str_subset(levels(indic_ecln$Indicateur), c("Encours","Mises"))
+# Indic_a_caler <- str_subset(levels(indic_ecln$Indicateur), c("Encours","Mises"))
+Indic_a_caler <- c( str_subset(levels(indic_ecln$Indicateur), "Encours"),  str_subset(levels(indic_ecln$Indicateur), "Mises") )
 
 indic_ecln_ss_com <- indic_ecln_ss_com %>%
   mutate(indic_calage = ifelse(TypeZone %in% c("France", "Régions", "Départements") &
@@ -420,7 +421,8 @@ Indic_final<- Indic_final %>%
 
 # Dans la table finale, on aura la source, le type de l'indicateur (trimestriel, annuel)
 
-
+# Appel de la fonction FormatDate
+source("R/FormatDate.R")
 
 indic_ecln_trim <- Indic_final %>%
   select(-Valeur_cumul) %>%
@@ -437,7 +439,7 @@ indic_ecln_trim <- Indic_final %>%
   gather(Indicateur, Valeur, Encours_Appartements:PrixPar_Logements) %>%
   mutate(
     Indicateur = str_replace_all(Indicateur, "_", " - "),
-   # Periode = FormatDate(Periode, Periodicite = "Trim", sep = "T"),
+    Periode = FormatDate(Periode, Periodicite = "Trim", sep = "T"),
     Source = "ECLN",
     TypeIndicateur = "Trimestriel"
   )
@@ -457,7 +459,7 @@ indic_ecln_cumul <- Indic_final %>%
   gather(Indicateur, Valeur, Encours_Appartements:PrixPar_Logements) %>%
   mutate(
     Indicateur = str_replace_all(Indicateur, "_", " - "),
-#    Periode = FormatDate(Periode, Periodicite = "Trim", sep = "T"),
+    Periode = FormatDate(Periode, Periodicite = "Trim", sep = "T"),
     Source = "ECLN",
     TypeIndicateur = "Cumul annuel"
   )
@@ -481,7 +483,7 @@ indic_ecln_non_secret <- bind_rows(indic_ecln_cumul, indic_ecln_trim) %>%
   mutate_if(is.character, as.factor) %>%
   mutate(TypeZone = fct_relevel(TypeZone, "France", "Régions", "Départements", "Epci"))
 
+indic_ecln <- indic_ecln_non_secret
 
-
-usethis::use_data(indic_ecln_non_secret, overwrite = TRUE)
+usethis::use_data(indic_ecln, overwrite = TRUE)