From 657600c9a37a82f7ad7afc96836b7d9754fcea88 Mon Sep 17 00:00:00 2001
From: HediaTnani <hediatnani0@gmail.com>
Date: Tue, 16 Jan 2024 11:26:26 -0500
Subject: [PATCH] Add single quote to the qsvsPCs in the error message

---
 R/get_qsvs.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/get_qsvs.R b/R/get_qsvs.R
index 1473175..3388572 100644
--- a/R/get_qsvs.R
+++ b/R/get_qsvs.R
@@ -18,7 +18,7 @@ get_qsvs <- function(qsvPCs, k) {
   
   #Validate qsvPCs is a prcomp object
   if (!is(qsvPCs, "prcomp")) {
-    stop("qsvPCs must be a prcomp object.", call. = FALSE)
+    stop("'qsvPCs' must be a prcomp object.", call. = FALSE)
   }
 
   # check that k isn't zero