tests/testthat/test_LearnerClassifGlmnet.R

In mlr3viz: Visualizations for 'mlr3'

skip_on_os("solaris")
skip_if_not_installed("mlr3")
skip_if_not_installed("mlr3learners")
skip_if_not_installed("glmnet")
skip_if_not_installed("ggfortify")
set.seed(42)

test_that("autoplot.LearnerClassifGlmnet", {
  requireNamespace("mlr3learners")
  learner = mlr3::lrn("classif.glmnet")$train(mlr3::tsk("sonar"))
  suppressWarnings(p <- autoplot(learner, type = "ggfortify"))
  expect_true(is_ggplot(p))
  expect_doppelganger("learner_classif.glmnet", p)
})