Adapation au format des données d'entrée, un vieux commit en attente de push

mairie_epci_api.R

@@ -28,9 +28,9 @@ dep_reg <- filter(communes, grepl(reg, REGIONS_DE_L_EPCI)) %>% select(DEP) %>% d
 date <- format(Sys.time(),"%Y%m%d")
 
 # fonction d'interrogation de l'API
-orga_dep <- function(dep = "53", org = "mairie") {
+orga_dep <- function(dep = "61", org = "mairie") {
   url_dep <- paste0("https://etablissements-publics.api.gouv.fr/v3/departements/", dep, "/", org)
-  GET(url_dep) %>% 
+  t <- GET(url_dep) %>% 
     content("text") %>%
     fromJSON(simplifyDataFrame = TRUE, flatten = TRUE) %>% 
     pluck("features") %>% 
@@ -38,30 +38,25 @@ orga_dep <- function(dep = "53", org = "mairie") {
     select(-c("pivotLocal", "horaires", "type", contains("geometry"), "zonage.communes")) %>% 
     filter(!grepl("délégué", nom)) %>% 
     unnest(cols = c("adresses")) %>% 
-    unnest(cols = c("lignes")) %>% 
-    unnest(cols = c("lignes")) %>% 
-    group_by(id, nom) %>% 
-    mutate(type = paste0("adresse_", row_number())) %>% 
-    ungroup() %>% 
-    pivot_wider(id_cols = c("id", "codeInsee", "nom", "codePostal", "commune", "email", "telephone", "url"), 
-                names_from = "type", values_from = "lignes", names_repair = "unique") 
+    unnest_wider(col = lignes, names_sep = "_adr_")
 }
 
 
 ############### fichier communal ###############################################
 
-df_mairies_0 <- map_dfr(dep_reg, ~orga_dep(dep = .x, org = "mairie"))
+df_mairies_0 <- map_df(dep_reg, ~orga_dep(dep = .x, org = "mairie"))
 
 df_mairies <- df_mairies_0 %>% 
-  select(codeInsee, nom, contains("adresse"), codePostal, commune, email, telephone, url) %>% 
+  select(codeInsee, nom, contains("_adr_"), codePostal, commune, email, telephone, url) %>% 
   # élimination des mairies des communes fusionnées qui doublonnent la mairie principale
-  left_join(refcom, ., by=c("idcom_old"="codeInsee")) %>% 
+  left_join(refcom, ., by = c("idcom_old" = "codeInsee")) %>% 
   # Elimination des derniers doublons
   add_count(idcom) %>% 
   group_by(idcom) %>% 
   mutate(a_garder = case_when(
     max(n) == 1 ~ 1,
     str_detect(string = nom, pattern = as.character(ncom)) ~ 1,
+    idcom_old == idcom ~ 1.5,
     TRUE ~ 2)
   ) %>% 
   arrange(a_garder) %>% 
@@ -69,7 +64,7 @@ df_mairies <- df_mairies_0 %>%
   select(-n, -a_garder, -idcom_old)
   
 # collecte de la table des maires
-maires0 <- read.delim(file = "https://www.data.gouv.fr/fr/datasets/r/2876a346-d50c-4911-934e-19ee07b0e503", header = TRUE, fileEncoding = "UTF-8") %>% 
+maires0 <- read.delim(file = "https://www.data.gouv.fr/fr/datasets/r/2876a346-d50c-4911-934e-19ee07b0e503", header = TRUE, fileEncoding = "UTF-8", sep = ";") %>% 
   set_standard_names() 
 
 maires <- maires0 %>%
@@ -81,7 +76,7 @@ maires <- maires0 %>%
   
 # Ajouts des maires à la table des coordonnées communales
 df_mairies <- df_mairies %>%
-  left_join(maires, by=c("idcom"="code_com"))
+  left_join(maires, by = c("idcom" = "code_com"))
 
 write.csv2(df_mairies, paste0("./",date,"_adresses_mairies_r", reg, ".csv", collapse = NULL), fileEncoding = "UTF-8", row.names=F, na="")
 
@@ -99,7 +94,8 @@ df_epci_ref <- df_epci %>%
   relocate(contains("adresse_"), .before = codePostal)
 
 # collecte des noms d'élus
-psdt_epci0 <- read.delim(file = "https://www.data.gouv.fr/fr/datasets/r/41d95d7d-b172-4636-ac44-32656367cdc7", header = TRUE, fileEncoding = "UTF-8") %>% 
+psdt_epci0 <- read.delim(file = "https://www.data.gouv.fr/fr/datasets/r/41d95d7d-b172-4636-ac44-32656367cdc7", header = TRUE, 
+                         fileEncoding = "UTF-8", sep = ";") %>% 
   set_standard_names() 
 
 psdt_epci <- psdt_epci0 %>%