# \donttest{
dino_dir <- system.file("extdata", package = "stopmotion")
images <- read(dir = dino_dir)
# Swap the first and second frame.
images <- arrange(images, order = c(2L, 1L, seq(3L, 10L)))
# }
Run the code above in your browser using DataLab