please lintr

easystats · Nov 30, 2023 · 1c89a11 · 1c89a11
1 parent 87a8680
commit 1c89a11
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/n_factors.R b/R/n_factors.R
@@ -341,10 +341,10 @@ n_factors <- function(x,
   )
 
   # Add cumulative percentage of variance explained
-  fa <- factor_analysis(x, cor=cor, n = max(by_factors$n_Factors))  # Get it from our fa:: wrapper (TODO: that's probably not the most efficient)
+  fa <- factor_analysis(x, cor = cor, n = max(by_factors$n_Factors))  # Get it from our fa:: wrapper (TODO: that's probably not the most efficient)
   varex <- attributes(fa)$summary
   # Extract number of factors from EFA output (usually MR1, ML1, etc.)
-  varex$n_Factors <- as.numeric(gsub("[^\\d]+", "", varex$Component, perl=TRUE))
+  varex$n_Factors <- as.numeric(gsub("[^\\d]+", "", varex$Component, perl = TRUE))
   by_factors <- merge(by_factors, varex[, c("n_Factors", "Variance_Cumulative")], by = "n_Factors")