ajout du save annuaire et du déploiment

dev/deploiment_sur_dataviz.R

@@ -12,6 +12,6 @@ to_svr_dataviz_ftp <- function(fic = "app/shiny_siclop.RData") {
 
 # fichiers à transférer
 app_files <- c(list.files("R/", full.names = TRUE, recursive = TRUE),
-               "dataviz_gitlabr.Rproj","github.RData","gitlab_forge.RData","gitlab.RData","date_MAJ.RData")
+               "dataviz_gitlabr.Rproj","github.RData","gitlab_forge.RData","gitlab.RData","date_MAJ.RData","path_annuaire.RData")
 # Exécution des transferts
 lapply(X = app_files, FUN = to_svr_dataviz_ftp)

dev/script_routine.R

@@ -11,8 +11,6 @@ source(file = "dev/github_extraire.R")
 source(file = "dev/gitlab_classique.R")
 source(file = "dev/gitlab_forge.R")
 
-source(file = "dev/deploiment_sur_dataviz.R", verbose = TRUE)
-
 path_annuaire <- paste0("annuaire/export_pauline_", str_sub(today(), 1, 7), ".csv")
 if (!file.exists(path_annuaire)) {
   unlink("annuaire", recursive = TRUE)
@@ -20,3 +18,7 @@ if (!file.exists(path_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/deploiment_sur_dataviz.R", verbose = TRUE)