diff --git a/DESCRIPTION b/DESCRIPTION index 689c753..b353aec 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -31,6 +31,8 @@ Imports: methods, grDevices RoxygenNote: 7.2.0 +Remotes: + bleutner/RStoolbox Suggests: testthat, covr diff --git a/R/internal.R b/R/internal.R index 22e8b21..1098061 100644 --- a/R/internal.R +++ b/R/internal.R @@ -859,7 +859,7 @@ rbind.different <- function(x) { all_na <- sapply(x, function(element) { return(ifelse(inherits(element, LIST()), FALSE, is.na(element))) }) - return(length(x) == 0 || is.null(x) || is.na(x) || all_null || all_na) + return(length(x) == 0 || is.null(x) || all(is.na(x)) || all(all_null) || all(all_na)) } #' checks if a character can be integer