From dffa6a75fb3b5fa30047613047ef194b66b589b3 Mon Sep 17 00:00:00 2001
From: LE DURAND Matteo <matteo.le-durand@developpement-durable.gouv.fr>
Date: Thu, 27 Mar 2025 14:37:54 +0100
Subject: [PATCH] =?UTF-8?q?ajout=20du=20save=20annuaire=20et=20du=20d?=
=?UTF-8?q?=C3=A9ploiment?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
dev/deploiment_sur_dataviz.R | 2 +-
dev/script_routine.R | 6 ++++--
2 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/dev/deploiment_sur_dataviz.R b/dev/deploiment_sur_dataviz.R
index 7abc3ee..e31ec87 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 637455f..dbccb50 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)
--
GitLab