Update factor_analysis.R

strengejacke · strengejacke · commit 273e34813130 · 2025-06-18T17:28:24.000+02:00
diff --git a/R/factor_analysis.R b/R/factor_analysis.R
@@ -43,5 +43,5 @@ factor_analysis.data.frame <- function(x,
 
 
 .is_oblique_rotation <- function(rotation) {
-  !is.null(rotation) && rotation %in% c("Promax", "promax", "oblimin", "simplimax", "bentlerQ", "geominQ", "biquartimin", "cluster") # nolint
+  !is.null(rotation) && tolower(rotation) %in% c("promax", "oblimin", "simplimax", "bentlerQ", "geominQ", "biquartimin", "cluster") # nolint
 }

Original file line number	Diff line number	Diff line change
`@@ -43,5 +43,5 @@ factor_analysis.data.frame <- function(x,`
`43`	`43`
`44`	`44`
`45`	`45`	`.is_oblique_rotation <- function(rotation) {`
`46`		`- !is.null(rotation) && rotation %in% c("Promax", "promax", "oblimin", "simplimax", "bentlerQ", "geominQ", "biquartimin", "cluster") # nolint`
	`46`	`+ !is.null(rotation) && tolower(rotation) %in% c("promax", "oblimin", "simplimax", "bentlerQ", "geominQ", "biquartimin", "cluster") # nolint`
`47`	`47`	`}`