# \donttest{
dino_dir <- system.file("extdata", package = "stopmotion")
images <- read(dir = dino_dir)
border(images = images, color = "black", geometry = "5x5")
border(images = images, color = "white", geometry = "10x10", frames = 1:3)
# }
Run the code above in your browser using DataLab