data-raw/animation.R

In ThinkR-open/rusk: Beautiful Graphical Representation of Multiplication Tables on a Modular Circle

library(magick)

library(ggplot2)
img <- image_graph(400, 400, res = 96)
seq(2,200,by = 1) %>% purrr::map(~draw(table=21,modulo = .x))

dev.off()
animation <- image_animate(img, fps = 10)
print(animation)