[eCow] Correctif environnement

R/common/ws_client.R

@@ -142,14 +142,13 @@ get_params_ponderation <- function(num_cheptel){
 
 #' Récupère le nombre de veaux total par parents à partir d'une extraction excel complétée par les données SPIE
 #' Le nombre renvoyé est le nombre total tous cheptels confondus, sans détail sur les veaux
-get_parents_ipg <- function(){
+get_parents_ipg <- function(cheptel){
   # Extraction du fichier excel contenant les données de la table bovide du SIG jusqu'au 06/01/2026
   meresIPG <- read_csv(paste(rep_imp, "nb_prod_IPG_byMERE_20260106.csv", sep=''), show_col_types = FALSE)
   colnames(meresIPG) <- c('ANIM','NBPRODSIG')
-  
   # Extraction SPIE pour compléter à partir du 03/01/2026 (choix date pour essayer de limiter les doublons et manquement) 
   url_meres_spie <- paste0(server_path, "webresources/spie/nbprodbymeresince2026/")
-  meres_spie_brut <- http_get(url = paste0(url_meres_spie, num_cheptel))
+  meres_spie_brut <- http_get(url = paste0(url_meres_spie, cheptel))
   meres_spie <- as.data.frame(meres_spie_brut, stringsAsFactors = FALSE)
   colnames(meres_spie) <- c('ANIM','NBPRODSPIE')
   meres_spie$NBPRODSPIE <- as.numeric(meres_spie$NBPRODSPIE)
@@ -164,7 +163,7 @@ get_parents_ipg <- function(){
   
   # Extraction SPIE pères
   url_peres_spie <- paste0(server_path, "webresources/spie/nbprodbyperesince2026/")
-  peres_spie_brut <- http_get(url = paste0(url_peres_spie, num_cheptel))
+  peres_spie_brut <- http_get(url = paste0(url_peres_spie, cheptel))
   peres_spie <- as.data.frame(peres_spie_brut, stringsAsFactors = FALSE)
   colnames(peres_spie) <- c('ANIM','NBPRODSPIE')
   peres_spie$NBPRODSPIE <- as.numeric(peres_spie$NBPRODSPIE)