Accès fichiers SPIE

R/common/environment.R

@@ -5,6 +5,8 @@ environnement <- "prod"
 if(environnement == "prod"){
   server_path <- "https://tomcat.herdbookcharolais.com/HbcSchedulerAndServices-2.0-SNAPSHOT/"
   
+  rep_imp <- "/R/"
+  
   infos_con <- list(
     drv = RPostgres::Postgres(),
     dbname = "hbc",
@@ -15,6 +17,8 @@ if(environnement == "prod"){
 } else if(environnement == "recette"){
   server_path <- "https://recette.tomcat.racecharolaise.fr/HbcSchedulerAndServices-2.0-SNAPSHOT/"
   
+  rep_imp <- "/home/lea/Documents/ecow/"
+  
   infos_con <- list(
     drv = RPostgres::Postgres(),
     dbname = "hbc-R7",
@@ -26,6 +30,8 @@ if(environnement == "prod"){
 } else {
   server_path <- "http://localhost:8080/HbcSchedulerAndServices/"
   
+  rep_imp <- "/home/lea/Documents/ecow/"
+  
   infos_con <- list(
     drv = RPostgres::Postgres(),
     dbname = "hbc-R7",

R/common/ws_client.R

@@ -176,8 +176,6 @@ fake <- function(){
 #' TODO Pour l'instant on récupère la dernière extraction, à terme il faudra récupérer l'intégration SPIE
 #' ATTENTION problème import fichier à cause des \ User !!!!!!!!!!!!!!!!!!!!!!!!!!!
 get_parents_ipg <- function(){
-  rep_imp <- "/home/lea/Documents/ecow/"
-  
   meresIPG <- read_csv(paste(rep_imp, "nb_prod_IPG_byMERE_20260106.csv", sep=''), show_col_types = FALSE)
   colnames(meresIPG) <- c('ANIM','NBPRODIPG')