tests/testthat/test-f_auto_rules.R

In collinear: Automated Multicollinearity Management

testthat::test_that("`f_auto_rules()` works", {
  testthat::skip_on_cran()

  df <- f_auto_rules()

  testthat::expect_true(
    is.data.frame(df)
  )

  testthat::expect_true(
    all(df$name %in% ls(getNamespace("collinear"), all.names = TRUE))
  )
})