From 979bf08714c30fbe07c3ca2ccba49b132ef4b256 Mon Sep 17 00:00:00 2001
From: HediaTnani <hediatnani0@gmail.com>
Date: Wed, 17 Jan 2024 10:15:50 -0500
Subject: [PATCH] Add arg_match for the type

---
 R/qSVA.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/qSVA.R b/R/qSVA.R
index cad9c20..ad12fe1 100644
--- 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)