tests/testthat/test-check_vars.R

In strengejacke/ggeffects: Create Tidy Data Frames of Marginal Effects for 'ggplot' from Model Outputs

skip_on_os(c("mac", "solaris"))

test_that("check vars", {
  data(iris)
  m_check <- lm(Sepal.Width ~ Sepal.Length + Species, data = iris)
  expect_error(
    ggpredict(m_check, terms = "Specis"),
    regex = "\"Species\""
  )
  m_check <- lm(Sepal.Width ~ Sepal.Length + Species, data = iris)
  expect_error(
    ggpredict(m_check, terms = c("Sepal.Lenght", "Specis")),
    regex = "\"Sepal.Length\" or \"Species\""
  )
})