Add arg_match for the type

LieberInstitute · Jan 17, 2024 · 979bf08 · 979bf08
1 parent cbd915f
commit 979bf08
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/qSVA.R b/R/qSVA.R
@@ -36,13 +36,15 @@
 #'
 qSVA <-
     function(rse_tx,
-    type = "cell_component",
+    type = c("cell_component", "standard", "top1500"),
     sig_transcripts = select_transcripts(type),
     mod,
     assayname) {
         ## We don't need to pass type to getDegTx() since it's not used internally
         ## once the sig_transcripts have been defined.
 
+      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)