From 9833672188ba5e18d377203084a6582e368fc3b1 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Sat, 16 Sep 2023 21:25:40 +0200
Subject: [PATCH] fix

---
 R/principal_components.R | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/R/principal_components.R b/R/principal_components.R
index ecacc0d89..f07735929 100644
--- a/R/principal_components.R
+++ b/R/principal_components.R
@@ -422,14 +422,6 @@ 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
 }