Cartoon animation R

Animation.R

#install.packages("animation") 
# install.packages("jpeg")  ## if necessary

library(animation)
library(jpeg)

ani.options(interval = 0.5)

for(i in 1:8){
  img <- paste("~/Documents/R/photo_", i, ".jpg", sep="")
  img <- readJPEG(img , native = TRUE)
  plot.new()
  
  rect(0, 0, 1, 1, col = "white")
  rasterImage(img, 0, 0, 1, 1)
  ani.pause()
}

dev.off()