Mise à jour des population légale (2022)

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")