Merge branch 'main' into pca_with_n1

easystats · Sep 16, 2023 · ab63088 · ab63088
2 parents 0e1b16d + 700067b
commit ab63088
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/principal_components.R b/R/principal_components.R
@@ -422,6 +422,14 @@ principal_components.data.frame <- function(x,
   } else if (n < 1) {
     n <- 1
   }
+
+  ## TODO: the next if-statement was removed by Dom, but this breaks
+  ## performance code. Need to check, so we for now add this back
+
+  # sanity check - we need at least two factors
+  if (n < 2 && ncol(x) >= 2) {
+    n <- 2
+  }
   n
 }