diff --git a/dev/deploiment_sur_dataviz.R b/dev/deploiment_sur_dataviz.R index 7abc3ee62655cf61dd6e4d60ed49156cfc7267ae..e31ec87c9e689e2cca3851adc02e5e6ae889dee7 100644 --- a/dev/deploiment_sur_dataviz.R +++ b/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) diff --git a/dev/script_routine.R b/dev/script_routine.R index 637455f1636e4c564de9c144a669116f5e34ee10..dbccb501e2038b4faf61c72046ff9de7e0f54b0d 100644 --- a/dev/script_routine.R +++ b/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)