library(magick)

list.files(path='.', pattern = '*.png', full.names = TRUE) %>% 
  image_read() %>% 
  image_join() %>% 
  image_animate(fps=10) %>% # animates, can opt for number of loops
  image_write("Map.gif")