fix : téléchargement de fichier : filtrer_cog conserve les communes des EPCI...

fix : téléchargement de fichier : filtrer_cog conserve les communes des EPCI hors région, département (relates #52)

Amélioration du déploiement du datamart sur le serveur intranet de dataviz

data-raw/create_datamart.R

@@ -7,6 +7,7 @@ library(COGiter)
 # remotes::install_github("pachevalier/tricky")
 library(tricky)
 library(googlesheets4) 
+library(formattable)
 
 rm(list = ls())
 
@@ -214,9 +215,30 @@ save(result,
 DBI::dbDisconnect(con)
 rm(con)
 
+# partage du datamart sur T
+file.copy(from = "data/indicateurs.RData", to = "T:/datalab/SCTE/SCTE_INDIC_TER/datamart/indicateurs.RData", overwrite = TRUE)
 
 # test verif intégrité datamart ---
 # des éventuels libellés de zones absents ?
 filter(result, is.na(Zone)) %>% select(variable, source_propre) %>% distinct()
 # des dates mal spécifiées ?
 result$date %>% unique()
+
+
+
+# étape de déploiement du datamart vers serveur dataviz------------
+library(RCurl)
+# creation de l'adresse de connexion FTP au serveur
+con_ftp_svr_dataviz = paste0("ftp://", Sys.getenv("svr_dataviz_user_dtv"), ":", Sys.getenv("svr_dataviz_mdp_dtv"), 
+                             "@", Sys.getenv("svr_dataviz_ip"), "/indicateurs_territoriaux_dev/")
+
+
+# creation d'une fonction de transfert FTP vers le serveur à l'aide de ftpUpload de RCurl
+## Les adresses des fichiers à transferer parte de la racine du projet RStudio
+to_svr_dataviz_ftp <- function(fic = "data/indicateurs.RData") {
+  ftpUpload(what = fic, to = paste0(con_ftp_svr_dataviz, fic))
+}
+
+# Exécution des transferts
+to_svr_dataviz_ftp("data/indicateurs.RData")
+

data-raw/suivi_datamart/it_synthese_sources.Rmd

@@ -304,4 +304,15 @@ xlsx::write.xlsx(x = datamart_it_valeurs_na, file = fic_xls,
                  sheetName = paste0("detail indic chargés au ", format(Sys.Date(),"%d-%m-%Y")),
                  append = TRUE, col.names = TRUE)
 
+# partage sur T
+fic_xls_T <- paste0("T:/datalab/SCTE/SCTE_INDIC_TER/datamart/suivi_datamart/", gsub("data/", "", fic_xls))
+file.copy(from = fic_xls, to = "T:/datalab/SCTE/SCTE_INDIC_TER/datamart/suivi_datamart/", overwrite = TRUE)
+
+
 ```
+```{r copie rapport html, echo=FALSE, eval=FALSE}
+# A ne faire tourner qu'après avoir knité le rapport
+file.copy(from = "data-raw/suivi_datamart/it_synthese_sources.html", 
+          to = "T:/datalab/SCTE/SCTE_INDIC_TER/datamart/suivi_datamart/it_synthese_sources.html", overwrite = TRUE)
+```
+

server.R

@@ -454,7 +454,7 @@ shinyServer(function(input, output, session){
       filter(source_libelle == input$telecharger_SelectSource,
              TypeZone %in% input$telecharger_SelectMailles) %>%
       filtrer_cog(depcom = r$param_filcog$C, epci = r$param_filcog$E, 
-                  dep = r$param_filcog$D, reg = r$param_filcog$R)
+                  dep = r$param_filcog$D, reg = r$param_filcog$R, epci_complet = TRUE)
     
     r$nom_source <- r$data_a_telecharger$source_propre[1] %>%
       as.character()