# \donttest{
dino_dir <- system.file("extdata", package = "stopmotion")
images <- read(dir = dino_dir)
crop(images = images, geometry = "200x200+50+50")
crop(images = images, geometry = "200x200", gravity = "Center", frames = 1:3)
# }
Run the code above in your browser using DataLab