Code
library(slickR)
<- list.files("frames/", pattern=".jpg", full.names = TRUE)
bird_frame_filenames
slickR(bird_frame_filenames, height = 250, width='80%') +
settings(dots = TRUE,
infinite= TRUE,
speed = 0,
fade = TRUE,
cssEase = 'linear')