[éCow] Correctifs vaches et avancement taureaux

R/common/prepare_data.R

@@ -8,6 +8,7 @@ suppressPackageStartupMessages({
 #' @param tab_anims dataframe. Liste d'animaux brute
 #' @return Liste d'animaux nettoyée
 clean_data_anims<- function(tab_anims){
+  if (nrow(tab_anims) == 0) return()
   result_data <- tab_anims %>%
     mutate(
       dateNaiss = as.Date(as.POSIXct(dateNaiss / 1000, origin = "1970-01-01", tz = "UTC")),

R/common/ws_client.R

@@ -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