diff --git a/R/common/environment.R b/R/common/environment.R index 9cd5c86..5bf78b0 100644 --- a/R/common/environment.R +++ b/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", diff --git a/R/common/ws_client.R b/R/common/ws_client.R index 428258d..98f4220 100755 --- a/R/common/ws_client.R +++ b/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')