Skip to content
Snippets Groups Projects
Commit 2c38291f authored by Daniel.Kalioudjoglou's avatar Daniel.Kalioudjoglou
Browse files

mise a jour aom

parent 7e929383
No related branches found
No related tags found
1 merge request!43Resolve "mise a jour donnees DK octobre 2024"
...@@ -2,9 +2,10 @@ ...@@ -2,9 +2,10 @@
# chargement_aom_epci # chargement_aom_epci
# chargement des autorités organisatrices de la mobilité (AOM) à partir du site Banatic # 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" # https://www.banatic.interieur.gouv.fr/V5/fichiers-en-telechargement/fichiers-telech.php
# fichier excel , transformé en csv # dans Archives, prendre la dernière année, type d'archive: "périmetre des groupements",
# données au 01/04/2022 # échelon "France"-télécharger le tableau csv
# données au 01/04/2024
# valeur des codes de compétence disponibles sur # valeur des codes de compétence disponibles sur
# https://www.banatic.interieur.gouv.fr/V5/ressources/documents/document_reference/Banatic_Metadonnees2019.xlsx # 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" # 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) ...@@ -23,12 +24,15 @@ library(dplyr)
library(COGiter) library(COGiter)
library(DBI) library(DBI)
library(RPostgreSQL) library(RPostgreSQL)
library(datalibaba)
library(googlesheets4)
rm(list = ls()) rm(list = ls())
# chargement des données -------- # 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='.', dec='.',
header = TRUE, header = TRUE,
sep=";", sep=";",
...@@ -44,13 +48,14 @@ epci_interreg <- epci %>% ...@@ -44,13 +48,14 @@ epci_interreg <- epci %>%
mutate(EPCI=as.character(EPCI))%>% mutate(EPCI=as.character(EPCI))%>%
pull(EPCI) pull(EPCI)
date = 2022 date = 2024
aom <- aom %>% aom <- aom %>%
mutate(N..SIREN = as.character(N..SIREN)) %>% mutate(N..SIREN = as.character(N..SIREN)) %>%
filter(C4530 == 1 , N..SIREN %in% epci_interreg)%>% filter(C4530 == 1 , N..SIREN %in% epci_interreg)%>%
rename(epci = N..SIREN) %>% rename(epci = N..SIREN) %>%
select("epci") %>% select("epci") %>%
unique() %>%
mutate(date = make_date(date,04,01), AOM ="TRUE") %>% mutate(date = make_date(date,04,01), AOM ="TRUE") %>%
mutate(epci = fct_expand(epci, epci_interreg)) %>% mutate(epci = fct_expand(epci, epci_interreg)) %>%
complete(epci,date,fill = list(AOM = "FALSE")) complete(epci,date,fill = list(AOM = "FALSE"))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment