Intégration PLH 2024 - closes #51

PLH/integration_PLH.Rmd

@@ -8,7 +8,7 @@ output:
     toc: yes
     toc_depth: '2'
 params:
-  annee: "2023"
+  annee: "2024"
   sgbd: TRUE
 ---
 
@@ -26,9 +26,6 @@ library(COGiter)
 library(COGugaison)
 library(readODS)
 library(datalibaba)
-library(RPostgres)
-library(rpostgis)
-library(DBI)
 library(sf)
 # devtools::install_github("pachevalier/tricky")
 library(tricky)
@@ -132,15 +129,8 @@ On réunit au préalable ces informations.
 ```{r mise a jour attributs epci, message=FALSE, warning=FALSE, results = FALSE}
 
 # siège des EPCI
-telech <- tempfile() 
-download.file(url = paste0("https://www.banatic.interieur.gouv.fr/V5/fichiers-en-telechargement/telecharger.php?zone=N&date=01/01/",
-                           params$annee, "&format=E"),
-              destfile = paste0(telech, "siege_epci.csv"))
-siege_epci <- readr::read_tsv(paste0(telech, "siege_epci.csv"), locale = locale("fr", encoding = "latin1")) %>%
-  set_standard_names() %>%
-  select(EPCI = `n°_siren`, departement_siege) %>%
-  separate(departement_siege, into = c("dep", NA), sep = " - ") %>%
-  distinct %>%
+siege_epci <- COGiter::epci %>%
+  select(EPCI, dep = DEP_SIEGE_EPCI) %>%
   mutate(across(c(dep, EPCI), as.character))