tests/testthat/setup-cookfarm.R

In mlr3spatiotempcv: Spatiotemporal Resampling Methods for 'mlr3'

# subset of cookfarm task for smaller vdiffr snaps
# sampling 2 observations per Date+SOURCEID group
set.seed(42)
# b = as_data_backend(as.data.table(cookfarm_mlr3)[, .SD[sample(x = .N, size = 2)], by = .(Date, SOURCEID)])
b = readRDS(test_path("data", "cookfarm_subset.rds"))
b$hash = "_mlr3_tasks_cookfarm_"
tsk_cookfarm_sub = TaskRegrST$new(
  id = "cookfarm", b, target = "PHIHOX",
  coordinate_names = c("x", "y"), coords_as_features = FALSE,
  crs = 26911
)
tsk_cookfarm_sub$set_col_roles("Date", roles = "time")
tsk_cookfarm_sub$set_col_roles("SOURCEID", roles = "space")