Style for air

jmgirard · jmgirard · commit fe9f4249d73a · 2026-04-26T13:52:54.000-05:00
diff --git a/R/check_collinearity.R b/R/check_collinearity.R
@@ -514,10 +514,7 @@ check_collinearity.zerocount <- function(
 
   # Safely subset the matrix
   if (length(keep_idx) < ncol(v)) {
-    if (
-      !is.null(term_assign) &&
-      length(term_assign) == ncol(v)
-    ) {
+    if (!is.null(term_assign) && length(term_assign) == ncol(v)) {
       term_assign <- term_assign[keep_idx]
     }
     v <- v[keep_idx, keep_idx, drop = FALSE]
diff --git a/tests/testthat/test-check_collinearity.R b/tests/testthat/test-check_collinearity.R
@@ -344,11 +344,11 @@ test_that("check_collinearity, ordinal clm models", {
   )
   dat <- data.frame(y_ordinal, x_continuous, x_binary)
   mod_clm <- ordinal::clm(
-    y_ordinal ~ x_continuous + x_binary, 
+    y_ordinal ~ x_continuous + x_binary,
     data = dat
   )
   out <- check_collinearity(mod_clm)
   expect_s3_class(out, "check_collinearity")
   expect_identical(out$Term, c("x_continuous", "x_binary"))
   expect_equal(out$VIF, c(1.11, 1.11), tolerance = 0.05)
-})
+})

Original file line number	Diff line number	Diff line change
`@@ -344,11 +344,11 @@ test_that("check_collinearity, ordinal clm models", {`
`344`	`344`	`)`
`345`	`345`	`dat <- data.frame(y_ordinal, x_continuous, x_binary)`
`346`	`346`	`mod_clm <- ordinal::clm(`
`347`		`- y_ordinal ~ x_continuous + x_binary,`
	`347`	`+ y_ordinal ~ x_continuous + x_binary,`
`348`	`348`	`data = dat`
`349`	`349`	`)`
`350`	`350`	`out <- check_collinearity(mod_clm)`
`351`	`351`	`expect_s3_class(out, "check_collinearity")`
`352`	`352`	`expect_identical(out$Term, c("x_continuous", "x_binary"))`
`353`	`353`	`expect_equal(out$VIF, c(1.11, 1.11), tolerance = 0.05)`
`354`		`-})`
	`354`	`+})`