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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.