knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(fgu.avoidance) animals <- load_data(file.path("..", "inst", "extdata", "run", "three-animals.csv")) animal <- animals$animal_8
plot_path(animal)
If you need to change the background image, you can either pass it your own, or you can use the function apparatus_image_path
and set the argument darkside
to be left or right.
plot_path(animal, center = TRUE, background = apparatus_image_path(darkside = "left"))
And we can plot without the background image
plot_path(animal, background = NULL)
plot_area_presence(animal, darkside = "right")
Or we can flip the left right coloring
plot_area_presence(animal, darkside = "left")
There is a quick function to plot animal crossings to demonstrate that everything works as intended
crosses <- collect_crosses(animal) plot_crosses(animal, crosses$index, timewindow = 1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.