Timer le deploy.R

.gitignore

@@ -10,10 +10,14 @@
 **archives**
 **.htm
 **_files**
+data-raw/data/2030
+data-raw/data/2029
+data-raw/data/2028
+data-raw/data/2027
+data-raw/data/2026
+data-raw/data/2025
+data-raw/data/2024
+data-raw/data/2023
 data-raw/data/2022
 data-raw/data/2021
 data-raw/data/old
-data/**_2021.rda
-test.csv
-test3.csv
-install_non_affiliées_epci.csv

dev/03_deploy.R

@@ -23,7 +23,8 @@
 # Pour la preprod ->system("Rscript ./dev/03_deploy.R prprod")
 # Pour la prod -> system("Rscript ./dev/03_deploy.R prod")
 
-
+start_time <- Sys.time()
+cat(paste0("Debut du déploiement : ", start_time))
 # Récuperer les arguments passer en ligne de commande (prod ou preprod)
 args = commandArgs(trailingOnly=T)
 
@@ -83,3 +84,8 @@ rsconnect::deployApp(
   lint = FALSE,
   forceUpdate = TRUE
 )
+
+
+end_time <- Sys.time()
+success_msg("Déploiement terminé avec succès !")
+print(paste0("Fin de déploiement : ", end_time))