diff --git a/data-raw/chargement_aom_epci.R b/data-raw/chargement_aom_epci.R index ce66d9fe4c2024703991da0f810aa0e525756cb2..4a154ce006e15a4ecd309527fe0548dd97a2e9c7 100644 --- a/data-raw/chargement_aom_epci.R +++ b/data-raw/chargement_aom_epci.R @@ -2,9 +2,10 @@ # chargement_aom_epci # chargement des autorités organisatrices de la mobilité (AOM) à partir du site Banatic -# https://www.banatic.interieur.gouv.fr/V5/fichiers-en-telechargement/fichiers-telech.php# dans fichiers en télechargement, fichier "France"-"compétence des groupements" -# fichier excel , transformé en csv -# données au 01/04/2022 +# https://www.banatic.interieur.gouv.fr/V5/fichiers-en-telechargement/fichiers-telech.php +# dans Archives, prendre la dernière année, type d'archive: "périmetre des groupements", +# échelon "France"-télécharger le tableau csv +# données au 01/04/2024 # valeur des codes de compétence disponibles sur # https://www.banatic.interieur.gouv.fr/V5/ressources/documents/document_reference/Banatic_Metadonnees2019.xlsx # le code correspondant aux AOM est le C4530 "Organisation de la mobilité, au sens des articles L.1231-1 et suivants du code des transports" @@ -23,12 +24,15 @@ library(dplyr) library(COGiter) library(DBI) library(RPostgreSQL) +library(datalibaba) +library(googlesheets4) rm(list = ls()) # chargement des données -------- -aom <- read.csv2("extdata/AOM_Compétences des groupements - France entière.csv", +# aom <- read.csv2("extdata/AOM_Compétences des groupements - France entière.csv", +aom <- read.csv2("extdata/aom_Périmètre_des_groupements_en_2024.csv", dec='.', header = TRUE, sep=";", @@ -44,13 +48,14 @@ epci_interreg <- epci %>% mutate(EPCI=as.character(EPCI))%>% pull(EPCI) -date = 2022 +date = 2024 aom <- aom %>% mutate(N..SIREN = as.character(N..SIREN)) %>% filter(C4530 == 1 , N..SIREN %in% epci_interreg)%>% rename(epci = N..SIREN) %>% select("epci") %>% + unique() %>% mutate(date = make_date(date,04,01), AOM ="TRUE") %>% mutate(epci = fct_expand(epci, epci_interreg)) %>% complete(epci,date,fill = list(AOM = "FALSE"))