diff --git a/R/common/prepare_data.R b/R/common/prepare_data.R
index 8201ea9..a489601 100755
--- a/R/common/prepare_data.R
+++ b/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")),