Bugfix/ipad 519 2 (#32)

* update line 432 - use is.na instead of is.character

* use all instead of sum with is.na

* write checkNumberRowsNA

* use transpose and vapply

R/check.R

@@ -417,10 +417,10 @@ checkPlots <- function(plots) {
 }
 
 checkNumberRowNAs <- function(row) {
-  if(sum(is.na(row))) {
-    return(TRUE)
-  } else {
+  if(sum(is.na(row)) == length(row)) {
     return(FALSE)
+  } else {
+    return(TRUE)
   }
 }
 
@@ -437,7 +437,8 @@ 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]], function(x) checkNumberRowNAs(x), logical(1))))) {
+    tdf<-as.data.frame(t(mapping[[i]]))
+    if(!all(vapply(tdf, function(x) checkNumberRowNAs(x), 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