Add test for reverse_items

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: parameters
 Title: Processing of Model Parameters
-Version: 0.26.0.10
+Version: 0.26.0.11
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

R/utils_pca_efa.R

@@ -17,6 +17,7 @@
 #' indicating their column positions in `x` that should be reversed before
 #' computing sum scores. This is useful when the items are not coded in the same
 #' direction. If `NULL` (default), no items are reversed.
+#' @param verbose Logical, whether to print messages about reversing items.
 #'
 #' @details
 #' `get_scores()` takes the results from [`principal_components()`] or
@@ -51,7 +52,7 @@
 #' (mtcars$hp + mtcars$qsec) / 2
 #'
 #' @export
-get_scores <- function(x, n_items = NULL, reverse_items = NULL) {
+get_scores <- function(x, n_items = NULL, reverse_items = NULL, verbose = TRUE) {
   subscales <- closest_component(x)
   dataset <- attributes(x)$dataset
 
@@ -334,7 +335,7 @@
   # extract model
   model <- attributes(x)$model
   if (!is.null(model)) {
     stats <- data.frame(
       Statistic = c("Alpha", "G.6", "Omega (hierarchical)", "Omega (asymptotic H)", "Omega (total)"),
       Coefficient = c(model$alpha, model$G6, model$omega_h, model$omega.lim, model$omega.tot)
     )

tests/testthat/test-get_scores.R

@@ -6,4 +6,13 @@ test_that("get_scores", {
   scores <- get_scores(pca)
   expect_equal(head(scores$Component_1), c(38.704, 38.755, 28.194, 58.339, 78.658, 51.064), tolerance = 1e-2)
   expect_equal(head(scores$Component_2), c(63.23, 63.51, 55.805, 64.72, 96.01, 62.61), tolerance = 1e-2)
+
+  scores2 <- get_scores(pca, reverse_items = c("cyl", "drat"))
+  expect_equal(head(scores2$Component_1), c(38.682, 38.733, 28.992, 58.645, 78.136, 51.498), tolerance = 1e-2)
+
+  expect_warning(
+    get_scores(pca, reverse_items = c("cyl", "abc")),
+    regex = "Following variable(s)",
+    fixed = TRUE
+  )
 })