Use {magick} to read 'before' and 'after' images to a gif

screenshot-gif-rstudio.R

library(magick)

before <- image_read("~/Desktop/before.png")
before <- image_crop(before, "815x300-80-200")

after <- image_crop(image_read("~/Desktop/after.png"))
after <- image_crop(after, "815x300-80-200")

# To morph
# frames <- image_morph(c(before, after, before), frames = 20)
# image_animate(frames)

# To animate
img <- c(before, after)
ani <- image_animate(image_scale(img, "x200"), fps = 1, dispose = "previous")

image_write(ani, "~/Desktop/animation.gif")