From 7c5d8792badd9ecf315d24a83d2c1b863d873a2d Mon Sep 17 00:00:00 2001
From: Samuel Buis <samuel.buis@inra.fr>
Date: Tue, 16 Jul 2024 14:41:08 +0200
Subject: [PATCH] is_data now checks that the data structure is not empty

---
 R/is_data.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/is_data.R b/R/is_data.R
index c68e8c7..6fbda8d 100644
--- a/R/is_data.R
+++ b/R/is_data.R
@@ -49,7 +49,7 @@
 is.data <- function(data_list) {
 
   # Check data_list format
-  if (!is.list(data_list) || !all(sapply(
+  if (length(data_list)==0 || !is.list(data_list) || !all(sapply(
     data_list,
     function(x) is.data.frame(x)
   ))) {