[éCow] correction listes vides

R/common/prepare_data.R

@@ -8,7 +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()
+  if (is.null(tab_anims) || !isTRUE(nrow(tab_anims) > 0)) return()
   result_data <- tab_anims %>%
     mutate(
       dateNaiss = as.Date(as.POSIXct(dateNaiss / 1000, origin = "1970-01-01", tz = "UTC")),

R/project/ecow_calculations.R

@@ -54,7 +54,7 @@ calcul_ecow_by_chep <- function(cheptel, step = 3) {
   ###################################################################################################################
   ####################################     Calcul ecow pour les vaches       ########################################
   ###################################################################################################################
-  message("Début partie vaches : ", length(vaches), " vaches à traiter.")
+  message("Début partie vaches : ", nrow(vaches), " vaches à traiter.")
   
   # Ajout info donneuses
   donneuses <- cheptel_ecow$donneuses