tests/testthat/test_data.R

In mlr3spatial: Support for Spatial Objects Within the 'mlr3' Ecosystem

test_that("categorical layer is set", {
  stack = generate_stack(list(
    factor_layer("y", levels = c("a", "b"))),
  dimension = 2)
  task = as_task_unsupervised(stack)
  expect_factor(task$data()$y, levels = c("a", "b"), len = 4)
})