tests/testthat/test-basics.R

In usemodels: Boilerplate Code for 'Tidymodels' Analyses

library(modeldata)
data("penguins")

test_that('wrong model type', {
  local_edition(3)
  expect_snapshot(use_cubist(island ~ ., data = penguins), error = TRUE)
  expect_snapshot(use_C5.0(bill_depth_mm ~ ., data = penguins), error = TRUE)

})

test_that('no access to clipboard', {
  local_edition(3)

  Sys.setenv(CLIPR_ALLOW = FALSE)
  expect_snapshot(use_kknn(mpg~ ., data = mtcars, clipboard = TRUE), error = TRUE)

})