combine multiple png files into animated gif

library(magick)
library(purrr)

list.files(path = "~/Lab/tmp/", pattern = "*.png", full.names = T) %>% 
  map(image_read) %>% # reads each path file
  image_join() %>% # joins image
  image_animate(fps = 1) %>% # animates, can opt for number of loops
  image_write("~/Lab/annotation_demo.gif") # write to current dir