tests/testthat/test-datasets.R

In mlr3spatiotempcv: Spatiotemporal Resampling Methods for 'mlr3'

test_that("check that diplodia example task works", {
  task = tsk("diplodia")
  rsp = rsmp("spcv_coords", folds = 2)
  rsp$instantiate(task)

  expect_equal(rsp$iters, 2)
})

test_that("check that ecuador example task works", {
  task = tsk("ecuador")
  rsp = rsmp("spcv_coords", folds = 2)
  rsp$instantiate(task)

  expect_equal(rsp$iters, 2)
})

test_that("check that cookfarm example task works", {
  task = tsk("cookfarm_mlr3")
  rsp = rsmp("spcv_coords", folds = 2)
  rsp$instantiate(task)

  expect_equal(rsp$iters, 2)
})