Switch order to check if rse_tx is an rse object first

LieberInstitute · Jan 16, 2024 · 497e176 · 497e176
1 parent 856e004
commit 497e176
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/getDegTx.R b/R/getDegTx.R
@@ -37,16 +37,16 @@ getDegTx <- function(rse_tx, type = c("cell_component", "standard", "top1500"),
 
   type = arg_match(type)
 
+  # Validate rse_tx is a RangedSummarizedExperiment object
+  if (!is(rse_tx, "RangedSummarizedExperiment")) {
+    stop("'rse_tx' must be a RangedSummarizedExperiment object.", call. = FALSE)
+  }
+
   # Check if assayname is in assayNames
   if (!assayname %in% assayNames(rse_tx)) {
     stop(sprintf("'%s' is not in assayNames(rse_tx).", assayname), call. = FALSE)
   }
 
-  # Validate rse_tx is a RangedSummarizedExperiment object
-  if (!is(rse_tx, "RangedSummarizedExperiment")) {
-    stop("rse_tx must be a RangedSummarizedExperiment object.", call. = FALSE)
-  }
-
   # Check for validity and matching of tx names
   sig_transcripts = check_tx_names(rownames(rse_tx), sig_transcripts, 'rownames(rse_tx)', 'sig_transcripts')