Resolve "modification de la date des donnes de l'observatoire de l'artificialisation"

Closes #69 (closed)

data-raw/chargement_observatoire_artificialisation.R

@@ -82,7 +82,7 @@ observatoire_artificialisation <- obs_artif_conso_com %>%
   mutate(diff = annee_2 - annee_1) %>% 
   filter(diff == 1) %>% 
   select(-diff) %>% 
-  mutate(date = dmy(paste("01-01", annee_2, sep = "-"))) %>%
+  mutate(date = dmy(paste("31-12", annee_1, sep = "-"))) %>%
   select(-c(annee_1, annee_2)) %>% 
   rename(depcom = idcom) %>% 
   mutate(depcom = as.factor(depcom), variable = as.factor(variable), valeur = as.numeric(valeur)) %>%
@@ -94,3 +94,4 @@ source("R/poster_documenter_data.R", encoding = "UTF-8")
 poster_documenter_it(df = observatoire_artificialisation ,
                      nom_table_sgbd = "source_observatoire_artificialisation", 
                      comm_source_en_plus = "")
+