Bugfix/ipad 519 (#30)

* update line 432 - use is.na instead of is.character * use all instead of sum with is.na
abbvie-external · Jan 24, 2025 · 00e3db4 · 00e3db4
1 parent 6065728
commit 00e3db4
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/check.R b/R/check.R
@@ -429,7 +429,10 @@ checkMapping <- function(mapping) {
       stop("mapping object requires at least two models and one feature")
     }
     # stop if mapping object has all NAs for a given model
-    if (!(sum(vapply(mapping[[i]], is.na, logical(1))) == ncol(mapping[[i]]))) {
+    # if (!(sum(vapply(mapping[[i]], is.na, logical(1))) == ncol(mapping[[i]]))) {
+    #  stop("mapping object requires at least one feature per model")
+    # }
+    if (!(all(vapply(mapping[[i]], is.na, logical(1))))) {
       stop("mapping object requires at least one feature per model")
     }
     # check if any given model has at least one feature aligned with another model