is_data now checks that the data structure is not empty

SticsRPacks · Jul 16, 2024 · 7c5d879 · 7c5d879
1 parent 0e3a73a
commit 7c5d879
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)
   ))) {