From 7bbbc43816778959719d4c1069d03958c5f216a0 Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
<juliette.engelaere@developpement-durable.gouv.fr>
Date: Thu, 26 Dec 2024 15:29:27 +0100
Subject: [PATCH] =?UTF-8?q?Mise=20=C3=A0=20jour=20des=20population=20l?=
=?UTF-8?q?=C3=A9gale=20(2022)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
data-raw/chargement_population_legale.R | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/data-raw/chargement_population_legale.R b/data-raw/chargement_population_legale.R
index fab9f0c..a7f5d9c 100644
--- a/data-raw/chargement_population_legale.R
+++ b/data-raw/chargement_population_legale.R
@@ -2,18 +2,16 @@
# chargement_population_legale
library(magrittr)
-
rm(list = ls())
+mil <- 2022
+mini_mil <- stringr::substr(mil, 3, 4)
-# chargement de l'historique des populations légales de 1968 à 2021 -----------
+# chargement de l'historique des populations légales de 1968 à mil -----------
# Source : https://www.insee.fr/fr/statistiques/2522602
-# Historique des populations légales, Recensements de la population 1968-2021
-# file <- "extdata/Fichier_poplegale_6820.xlsx"
-file <- "extdata/Fichier_poplegale_6821.xlsx"
+file <- paste0("extdata/Fichier_poplegale_68", mini_mil, ".xlsx")
utils::download.file(
- # url = "https://www.insee.fr/fr/statistiques/fichier/2522602/fichier_poplegale_6820.xlsx",
- url = "https://www.insee.fr/fr/statistiques/fichier/2522602/fichier_poplegale_6821.xlsx",
+ url = paste0("https://www.insee.fr/fr/statistiques/fichier/2522602/fichier_pop_reference_68", mini_mil, ".xlsx"),
destfile = file,
method = "curl"
)
@@ -50,7 +48,8 @@ source("R/poster_documenter_data.R", encoding = "UTF-8")
poster_documenter_it(
df = population_legale,
nom_table_sgbd = "source_population_legale",
- comm_source_en_plus = "T\u00e9l\u00e9chargement depuis le site de l\'Insee https://www.insee.fr/fr/statistiques/2522602. Historique des populations l\u00e9gales - Recensements de la population 1968-2021"
+ comm_source_en_plus = paste0("T\u00e9l\u00e9chargement depuis le site de l\'Insee https://www.insee.fr/fr/statistiques/2522602. Historique des populations l\u00e9gales - Recensements de la population 1968-", mil)
)
+# source("data-raw/cogification_population_legale.R")
--
GitLab