From e8e1440aaa50182e417aca32094ece4d04ab88a1 Mon Sep 17 00:00:00 2001 From: HediaTnani Date: Thu, 4 Jan 2024 14:49:21 -0500 Subject: [PATCH] Use all instead of any in getDegTx to check rownames --- R/getDegTx.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/getDegTx.R b/R/getDegTx.R index 4e25cfb..6fb9f1b 100644 --- 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]