From 2c38291f760904840541883469cfb606a0068206 Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
<daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Thu, 31 Oct 2024 09:04:14 +0100
Subject: [PATCH] mise a jour aom
---
data-raw/chargement_aom_epci.R | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/data-raw/chargement_aom_epci.R b/data-raw/chargement_aom_epci.R
index ce66d9f..4a154ce 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"))
--
GitLab