From 7e9293835888354d840b1c3b72cf2a4c620b784c Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
<daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Wed, 30 Oct 2024 16:29:01 +0100
Subject: [PATCH] mise a jour statut occupation des rp
---
.../chargement_statut_occupation_des_rp.R | 22 +++++++++----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/data-raw/chargement_statut_occupation_des_rp.R b/data-raw/chargement_statut_occupation_des_rp.R
index 55565e0..215dff5 100644
--- a/data-raw/chargement_statut_occupation_des_rp.R
+++ b/data-raw/chargement_statut_occupation_des_rp.R
@@ -1,8 +1,8 @@
# 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
--
GitLab