sapply -> vapply

federicomarini · Sep 12, 2024 · 7cb49f1 · 7cb49f1
1 parent 1381223
commit 7cb49f1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/correlatePCs.R b/R/correlatePCs.R
@@ -23,7 +23,7 @@
 #' @export
 correlatePCs <- function(pcaobj, coldata, pcs = 1:4) {
   # split the analysis for continuous and categorial
-  coldataTypes <- sapply(coldata, class)
+  coldataTypes <- vapply(coldata, class, character(1))
   # extract the scores from the pc object
   x <- pcaobj$x