Browse code

fix warning on NULL gsnap(input_b=)

Michael Lawrence authored on 09/05/2019 17:18:57
Showing1 changed files

... ...
@@ -18,7 +18,7 @@ setMethod("gsnap", c("character", "character_OR_NULL", "GsnapParam"),
18 18
             if (!is.null(input_b) && length(input_a) != length(input_b))
19 19
               stop("If 'input_b' is non-NULL, it must have the same length",
20 20
                    " as 'input_a'")
21
-            if (any(is.na(input_a)) || any(is.na(input_b)))
21
+            if (anyNA(input_a) || anyNA(input_b))
22 22
               stop("'input_a' and 'input_b' must not contain NA's")
23 23
             if (length(input_a) > 1L) {
24 24
                 args <- list(params, consolidate, ...)