Fix groups in PCA

tesselle · Apr 9, 2024 · 2c57830 · 2c57830
1 parent 2d6a7be
commit 2c57830
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/pca.R b/R/pca.R
@@ -26,6 +26,10 @@ setMethod(
                         weight_row = NULL, weight_col = NULL) {
     z <- methods::callNextMethod()
     z@extra <- get_features(object)
+
+    if (any_assigned(object))
+      z@rows@groups <- get_groups(object)
+
     z
   }
 )