debut d integration des donnees insee 2020

blocage du fait de la difference entre la doc insee et le fichier

Closes #35

data-raw/chargement_lgt_rgp_insee.R

@@ -19,17 +19,18 @@ rm(list=ls())
 
 # chargement des données logement du dernier recensement INSEE ----------
 
-# doc INSEE disponible à https://www.insee.fr/fr/statistiques/6454155?sommaire=6454268
-# Logement en 2019 - Recensement de la population - Base des principaux indicateurs
+# doc INSEE disponible à https://www.insee.fr/fr/statistiques/7631186?sommaire=7631713
+# Logement en 2020 - Recensement de la population - Base des principaux indicateurs
 
 # paramètres à saisir
-url <- "https://www.insee.fr/fr/statistiques/fichier/6454155/base-ccx-logement-2019.zip"
-mil <- c(2019, 2013, 2008) # mettre le millesime le plus récent en premier
-fic <- "base-cc-logement-2019"
+url <- "https://www.insee.fr/fr/statistiques/fichier/7631186/base-cc-logement-2020_xlsx.zip"
+mil <- c(2020, 2014, 2009) # mettre le millesime le plus récent en premier
+mil_court <- substr(mil, 3,4)
+fic <- "base-cc-logement-2020"
 
 # préfixe des variables à enlever (indique le millésime)
-var_mil <- paste0("P", mil,"_") %>% gsub("20", "", .) 
-var_mil_comp <- paste0("C", mil,"_") %>% gsub("20", "", .)
+var_mil <- paste0("P", mil_court,"_")
+var_mil_comp <- paste0("C", mil_court,"_")
 
 # téléchargement et dézipage 
 download.file(url, destfile = "extdata/lgt_RGP_INSEE.zip")
@@ -74,8 +75,8 @@ setdiff(noms_var, lib_var$variable_deb) # rien attendu (character(0))
 
 # calcul des variables ------
 lgt_rp <- bind_rows(lgt_rp_actu, lgt_rp_old, lgt_rp_very_old) %>% 
-  mutate(RP_ACHTOT = coalesce(RP_ACHTT, RP_ACHTOT)) %>% 
-  select(-RP_ACHTT) %>%
+  # mutate(RP_ACHTOT = coalesce(RP_ACHTT, RP_ACHTOT)) %>% 
+  # select(-RP_ACHTT) %>%
   select(date = annee, depcom = CODGEO, everything(), -REG, -DEP, -LIBGEO) %>%
   pivot_longer(cols = -c(date, depcom), names_to = "variable_deb", values_to = "valeur") %>%
   left_join(lib_var, by = "variable_deb") %>%  
@@ -98,6 +99,6 @@ if(all(c("75056","75101") %in% lgt_rp$depcom)) {
 
 source("R/poster_documenter_data.R")
 poster_documenter_it(df = lgt_rp, nom_table_sgbd = "source_lgt_rgp_insee", 
-                     comm_source_en_plus = "doc INSEE disponible à https://www.insee.fr/fr/statistiques/6454155?sommaire=6454268")
+                     comm_source_en_plus = "doc INSEE disponible à https://www.insee.fr/fr/statistiques/7631186?sommaire=7631713")
 
 rm(list=ls())