l'annuaire est chargée automatiquement et charger dans le global automatiquement

dev/chargement_annuaire.R

+library(stringr)
+library(lubridate)
+library(readr)
+path_annuaire <- paste0("annuaire/export_pauline_", str_sub(today(), 1, 7), ".csv")
+if (!file.exists(path_annuaire)) {
+  unlink("annuaire", recursive = TRUE)
+  dir.create("annuaire")
+  download.file(url = "http://annuaire.e2.rie.gouv.fr/index.php?vue=exportcsv&dn=ou=CSD,ou=SCTE,ou=DREAL%20Pays%20Loire,ou=DR,ou=melanie",
+                destfile =  path_annuaire, method = "libcurl")
+}
+annuaire <- readr::read_csv(path_annuaire,col_types = "c")
+
+save.image(file = "path_annuaire.RData")

dev/script_routine.R

@@ -4,21 +4,12 @@ Sys.setenv("NO_PROXY" = "127.0.0.1,localhost,.i2,.rie.gouv.fr,192.168.,10.,172."
 
 setwd("T:\\datalab\\SCTE_CSD\\dataviz_gitlabr")
 
-library(stringr)
-library(lubridate)
+
 # etape de mise à jour des données sur T-------------
 source(file = "dev/github_extraire.R")
 source(file = "dev/gitlab_classique.R")
 source(file = "dev/gitlab_forge.R")
-
-path_annuaire <- paste0("annuaire/export_pauline_", str_sub(today(), 1, 7), ".csv")
-if (!file.exists(path_annuaire)) {
-  unlink("annuaire", recursive = TRUE)
-  dir.create("annuaire")
-  download.file(url = "http://annuaire.e2.rie.gouv.fr/index.php?vue=exportcsv&dn=ou=CSD,ou=SCTE,ou=DREAL%20Pays%20Loire,ou=DR,ou=melanie",
-                destfile =  path_annuaire, method = "libcurl")
-}
-save(path_annuaire,file = "path_annuaire.RData")
+source(file = "dev/annuaire.R")
 
 
 source(file = "dev/deploiment_sur_dataviz.R", verbose = TRUE)

global.R

@@ -20,7 +20,6 @@ library(bizdays)
 library(shinyWidgets)
 library(textclean)
 library(stringi)
-library(readr)
 library(fuzzyjoin)
 # chargement des données (résultat du script "dev/script_chargement_rdata.R")
 load("github.RData")
@@ -29,7 +28,7 @@ load("gitlab.RData")
 load("date_MAJ.RData")
 load("path_annuaire.RData")
 
-annuaire <- readr::read_csv(path_annuaire,col_types = "c")
+
 annuaire$Messagerie <- tolower(annuaire$Messagerie)
 annuaire <- annuaire %>% dplyr::rename( mail = Messagerie)
 annuaire <- annuaire %>%  dplyr::filter( stringr::str_detect(Unité,"CSD" ) )