tests/testthat/test-tidy_parameters.R

In larmarange/broom.helpers: Helpers for Model Coefficients Tibbles

test_that("tidy_parameters() works for basic models", {
  skip_if_not_installed("parameters")
  mod <- lm(Petal.Length ~ Petal.Width, iris)
  expect_no_error(
    mod |> tidy_parameters()
  )
  expect_no_error(
    mod |> tidy_plus_plus(tidy_fun = tidy_parameters)
  )

  mod <- glm(response ~ stage + grade + trt, gtsummary::trial, family = binomial)
  expect_no_error(
    mod |> tidy_parameters()
  )
  expect_no_error(
    res1 <- mod |> tidy_plus_plus(tidy_fun = tidy_parameters)
  )
  expect_no_error(
    res2 <- mod |> tidy_plus_plus(tidy_fun = tidy_parameters, conf.level = .80)
  )
  expect_false(identical(res1$conf.low, res2$conf.low))
  expect_no_error(
    res <- mod |> tidy_plus_plus(tidy_fun = tidy_parameters, conf.int = FALSE)
  )
  expect_false("conf.low" %in% res)
})

test_that("tidy_with_broom_or_parameters() works for basic models", {
  skip_if_not_installed("parameters")
  mod <- lm(Petal.Length ~ Petal.Width, iris)
  expect_no_error(
    mod |> tidy_with_broom_or_parameters()
  )

  expect_error(
    suppressWarnings("not a model" |> tidy_with_broom_or_parameters())
  )
})