Update RNAsequences.R

KJeynesCupper · Feb 26, 2024 · c51ddd3 · c51ddd3
1 parent ecfb405
commit c51ddd3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/RNAsequences.R b/R/RNAsequences.R
@@ -107,7 +107,7 @@ RNAsequences <- function(data, original = FALSE, method = c("consensus", "set"),
     stop("data is missing. data must be an object of class matrix, data.frame, 
           DataFrame")
   }
-  if (base::missing(method) || method %in% c("consensus", "set")) {
+  if (base::missing(method) || !method %in% c("consensus", "set")) {
     stop("Please specify the method parameter, must be either `consensus` or`set`. ")
   }
   df <- data %>% # select only columns with RNA seqs, remove columns with only NA values