diff --git a/data-raw/07_chargement_ecln.R b/data-raw/07_chargement_ecln.R index b7c2c06d7d02709fa86ce4ccc66d1ca31eaf92ed..9da944a5d82294301cd0b48689f47eb9fc76b068 100644 --- a/data-raw/07_chargement_ecln.R +++ b/data-raw/07_chargement_ecln.R @@ -24,7 +24,7 @@ tab_valeurs <- tab_ecln %>% select(TypeZone,Zone,CodeZone,date=Periode,variable=Indicateur, valeur=Valeur) tab_evol <- tab_ecln %>% select(TypeZone,Zone,CodeZone,date=Periode,variable=Indicateur, valeur=TauxEvolution12Mois) %>% - mutate(variable = paste("evol12m_",variable)) + mutate(variable = paste0("evol12m_",variable)) source_ecln <- bind_rows(tab_valeurs,tab_evol) %>% mutate(valeur = format(valeur, scientific = FALSE)) %>% pivot_wider(names_from = variable,values_from = valeur)