misc/old_tests_03_02_2023/testthat/test-save.R

In ModelOriented/forester: Quick and Simple Tools for Training and Testing of Tree-Based Models

test_that('test-save', {
  train  <- suppressWarnings(train(iris, 'Sepal.Width', verbose = FALSE, random_evals = 2, bayes_iter = 0))
  name   <- save_forest(train, return_name = TRUE)
  train2 <- readRDS(name)
  expect_equal(length(train), length(train2))
  file.remove(name)
})