Ajout donneuses/porteuses

2026-06-12 15:51:04 +02:00
parent 1df8897e88
commit ea76a07d61
4 changed files with 14 additions and 6 deletions
@@ -35,8 +35,12 @@ http_get <- function(url, method = "GET", params = NULL, headers = NULL, auth =
 get_cheptel_ecow <- function(num_cheptel){
  url_active_by_chep <- paste0(server_path, "webresources/animals/findInventaireEcowByChep/")
  active_by_chep <- http_get(url = paste0(url_active_by_chep, num_cheptel))
+  donneuses <- active_by_chep$donneuses
+  active_by_chep$donneuses <- NULL
  # Nettoyage des données pour les listes reçues
  active_by_chep <- lapply(active_by_chep, clean_data_anims)
+  active_by_chep$donneuses <- donneuses
+  return(active_by_chep)
 }

 #' Renvoie la liste des adhérents HBC actifs dans Dolibarr