#52

data-raw/create_datamart.R

@@ -94,7 +94,7 @@ telechargement <- function(x) {
     rename_with(tolower) %>%  
     rename(TypeZone = typezone, Zone = zone, CodeZone = codezone) %>% 
     pivot_longer(cols = -c(TypeZone, Zone, CodeZone, date), names_to = "variable", values_to = "valeur") %>% 
-    filtrer_cog(reg = code_reg) %>% 
+    filtrer_cog(reg = code_reg,epci_complet = TRUE) %>% 
     mutate(table_sgbd = x) # on ajoute le nom de la table pour la recherche d'incohérence entre données téléchargées et référentiel d'indicateurs
 }