tests

Author: strengejacke

R/principal_components.R

@@ -318,6 +318,7 @@ principal_components.data.frame <- function(x,
     }
     # reverse the items
     x <- datawizard::reverse_scale(x, reverse_items, verbose = verbose)
+    original_data <- datawizard::reverse_scale(original_data, reverse_items, verbose = FALSE)
   }
 
   # Select numeric only
@@ -343,6 +344,9 @@ 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
+
     return(pca_loadings)
   }
 

R/utils_pca_efa.R

@@ -60,7 +60,7 @@ get_scores <- function(x, n_items = NULL, reverse_items = NULL, verbose = TRUE)
   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))) {
+    if ("reverse_items" %in% names(attributes(x))) {
       insight::format_warning(
         "It seem that items have already been reversed in this data set. Make sure that you do not reverse them again."
       )

tests/testthat/test-get_scores.R

@@ -25,4 +25,16 @@ test_that("get_scores", {
 
   expect_silent(get_scores(pca, reverse_items = c("cyl", "abc"), verbose = FALSE))
   expect_silent(get_scores(pca, reverse_items = c("cyl", "drat"), verbose = FALSE))
+
+  pca <- principal_components(
+    mtcars[, 1:7],
+    n = 2,
+    rotation = "varimax",
+    reverse_items = c("cyl", "drat")
+  )
+  expect_warning(
+    get_scores(pca, reverse_items = c("cyl", "drat")),
+    regex = "It seems that",
+    fixed = TRUE
+  )
 })