Add single quote to the qsvsPCs in the error message

LieberInstitute · Jan 16, 2024 · 657600c · 657600c
1 parent 7c8ee5f
commit 657600c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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