Use all instead of any in getDegTx to check rownames

LieberInstitute · Jan 4, 2024 · e8e1440 · e8e1440
1 parent faf18ab
commit e8e1440
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/getDegTx.R b/R/getDegTx.R
@@ -41,7 +41,7 @@ getDegTx <- function(rse_tx, type = c("cell_component", "standard", "top1500"),
   if (!is(rse_tx, "RangedSummarizedExperiment")) {
     stop("Error: rse_tx must be a RangedSummarizedExperiment object.")
   }
-  if (any(!grepl("^ENST", rownames(rse_tx)))) {
+  if (!all(grepl("^ENST", rownames(rse_tx)))) {
     stop("Error: Some rownames do not start with 'ENST'.")
   }
   rse_tx <- rse_tx[rownames(rse_tx) %in% sig_transcripts, , drop = FALSE]