diff --git a/data-raw/chargement_population_legale.R b/data-raw/chargement_population_legale.R index fab9f0cc8918fcb6deb3b2f53cc22bb5e6ee4df4..a7f5d9c8d0c7c188b43a9fbc1934637f9981f52a 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")