tests/testthat/test-nice_slopes.R

In rempsyc: Convenience Functions for Psychology

test_that("nice_slopes", {
  skip_if_not_installed("effectsize")

  expect_snapshot(nice_slopes(
    data = mtcars,
    response = "mpg",
    predictor = "gear",
    moderator = "wt"
  ))

  # Multiple dependent variables at once
  expect_snapshot(nice_slopes(
    data = mtcars,
    response = c("mpg", "disp", "hp"),
    predictor = "gear",
    moderator = "wt"
  ))

  # Add covariates
  expect_snapshot(nice_slopes(
    data = mtcars,
    response = "mpg",
    predictor = "gear",
    moderator = "wt",
    covariates = c("am", "vs")
  ))

  # Three-way interaction (continuous moderator and binary
  # second moderator required)
  expect_snapshot(nice_slopes(
    data = mtcars,
    response = "mpg",
    predictor = "gear",
    moderator = "wt",
    moderator2 = "am"
  ))
})