tests/testthat/helper-data.R

test_folder <- system.file("extdata", package = "fgu.avoidance")
fs <- file.path(test_folder, "run", "three-animals.CSV")
obj <- load_data(fs)
obj_single <- obj$animal_8
hejtmy/fgu-avoidance documentation built on Sept. 19, 2021, 6:35 a.m.