tests/testthat/test-viz_residuals.R

In EmilHvitfeldt/horus: Visual Tools To Help Machine Learning model Selection

library(parsnip)

reg <- linear_reg() %>%
  set_engine("lm") %>%
  set_mode("regression") %>%
  fit(mpg ~ ., data = mtcars)

test_that("viz_residuals works", {

  vdiffr::expect_doppelganger(
    "viz_residuals simple",
    viz_residuals(reg, mtcars),
    "viz_residuals"
  )
})