revert #350

easystats · Nov 25, 2020 · abc447c · abc447c
1 parent 83fd175
commit abc447c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/get_scores.R b/R/get_scores.R
@@ -32,7 +32,7 @@
 #' @export
 get_scores <- function(x, n_items = NULL) {
   subscales <- closest_component(x)
-  data_set <- attributes(x)$data
+  data_set <- attributes(x)$data_set
 
   out <- lapply(sort(unique(subscales)), function(.subscale) {
     columns <- names(subscales)[subscales == .subscale]

diff --git a/R/principal_components.R b/R/principal_components.R
@@ -125,7 +125,7 @@ principal_components.data.frame <- function(x, n = "auto", rotation = "none", so
   # Rotation
   if (rotation != "none") {
     loadings <- .pca_rotate(x, n, rotation = rotation, sort = sort, threshold = threshold, original_data = original_data, ...)
-    attr(loadings, "data_name") <- data_name
+    attr(loadings, "data") <- attr(loadings, "data_name") <- data_name
     return(loadings)
   }
 
@@ -196,8 +196,8 @@ principal_components.data.frame <- function(x, n = "auto", rotation = "none", so
   # for each variable, so we know which column in the original data set belongs
   # to which extracted component...
   attr(loadings, "closest_component") <- .closest_component(loadings, loadings_columns = loading_cols, variable_names = colnames(x))
-  attr(loadings, "data_name") <- data_name
-  attr(loadings, "data") <- attr(loadings, "data_set") <- original_data
+  attr(loadings, "data") <- attr(loadings, "data_name") <- data_name
+  attr(loadings, "data_set") <- original_data
 
   # add class-attribute for printing
   class(loadings) <- unique(c("parameters_pca", "see_parameters_pca", class(loadings)))