[éCow] Correctifs vaches et avancement taureaux

2026-06-24 15:08:51 +02:00
parent ea76a07d61
commit 0a6cb5fc95
5 changed files with 44 additions and 19 deletions
@@ -35,6 +35,7 @@ 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))
+  if(nrow(active_by_chep$vaches) == 0 ) return(active_by_chep)
  donneuses <- active_by_chep$donneuses
  active_by_chep$donneuses <- NULL
  # Nettoyage des données pour les listes reçues