mise a jour statut occupation des rp

data-raw/chargement_statut_occupation_des_rp.R

 # chargement_lgt_rp_insee
 
-# 2020 --> https://www.insee.fr/fr/statistiques/7631446?sommaire=7631713
-# https://www.insee.fr/fr/statistiques/fichier/7631446/TD_PRINC2_2020_csv.zip
-# paru le 27/06/2023
+# 2021 --> https://www.insee.fr/fr/statistiques/8202355?sommaire=8202874
+# https://www.insee.fr/fr/statistiques/fichier/8202355/TD_PRINC2_2021_csv.zip
+# paru le 27/06/2024
 
 
 # librairies ----------
@@ -15,22 +15,22 @@ library(dplyr)
 rm(list = ls())
 
 # chargement data -------
-download.file(url = "https://www.insee.fr/fr/statistiques/fichier/7631446/TD_PRINC2_2020_csv.zip",
-              destfile = "extdata/TD_PRINC2_2020_csv.zip")
-unzip("extdata/TD_PRINC2_2020_csv.zip", overwrite = TRUE, exdir = "extdata")
+download.file(url = "https://www.insee.fr/fr/statistiques/fichier/8202355/TD_PRINC2_2021_csv.zip",
+              destfile = "extdata/TD_PRINC2_2021_csv.zip")
+unzip("extdata/TD_PRINC2_2021_csv.zip", overwrite = TRUE, exdir = "extdata")
 
 
 # chargement data annees precedentes -------
-load("extdata/statut_occupation_des_rp.RData")
-# statut_occupation_des_rp <- importer_data(db = "datamart",
-#                                  schema = "portrait_territoires",
-#                                  table = "source_statut_occupation_des_rp")
+# load("extdata/statut_occupation_des_rp.RData")
+statut_occupation_des_rp <- importer_data(db = "datamart",
+                                 schema = "portrait_territoires",
+                                 table = "source_statut_occupation_des_rp")
 statut_occupation_des_rp_old <- statut_occupation_des_rp
 rm(statut_occupation_des_rp)
 
 # chargement du nouveau millésime
 
-millesime = 2020
+millesime = 2021
 
 # path <- paste0("extdata/BTT_TD_PRINC2_",millesime,".txt") #pour les années jusque 2016
 # path <- paste0("extdata/BTT_TD_PRINC2_",millesime,".csv") #pour les années 2017 à 2019