save attr

Author: strengejacke

R/factor_analysis.R

@@ -60,6 +60,7 @@ factor_analysis.data.frame <- function(x,
   )
 
   attr(out, "dataset") <- x
+  attr(out, "reverse_items") <- reverse_items
   out
 }
 

R/principal_components.R

@@ -465,6 +465,7 @@ principal_components.data.frame <- function(x,
   )
   attr(pca_loadings, "data") <- data_name
   attr(pca_loadings, "dataset") <- original_data
+  attr(pca_loadings, "reverse_items") <- reverse_items
 
   # add class-attribute for printing
   class(pca_loadings) <- unique(c("parameters_pca", "see_parameters_pca", class(pca_loadings)))

R/utils_pca_efa.R

@@ -58,6 +58,13 @@ get_scores <- function(x, n_items = NULL, reverse_items = NULL, verbose = TRUE)
 
   # should some items be reversed?
   if (!is.null(reverse_items)) {
+    # check if the object has an attribute "reverse_items" - if so, warn that
+    # we don't want to "double reverse" items
+    if ("reverse_items" %in% names(attributes(dataset))) {
+      insight::format_warning(
+        "It seem that items have already been reversed in this data set. Make sure that you do not reverse them again."
+      )
+    }
     # numeric indices should be replaced by their column names
     if (is.numeric(reverse_items)) {
       reverse_items <- colnames(dataset)[reverse_items]