apng

Pure R package to create animated png files from png files.

Installing

library(devtools)
install_github("qstokkink/apng")

Using

library(apng)

apng(my_vector_of_file_names)

Examples

library(apng)

pdf(NULL)
png(filename="1.png", type="cairo-png")
plot(1:40, (1:40)^2)
dev.off()
png(filename="2.png", type="cairo-png")
plot(1:40, (-1*1:40)^3)
dev.off()
apng(c("1.png", "2.png"))
Example output

Example output

x <- 1:40
frame_count <- 40

for (i in 1:frame_count) {
    png(filename=paste(i, ".png"), type="cairo-png")
    plot(x, sin((i/x)%% 1) * (-1)^x,
        ylim=c(-1,1),
        col = ifelse(x == i, "red", "black"),
        pch = ifelse(x == i, max((-1)^i, 0)*5, ifelse(x > i, 8, 1)))
    dev.off()
}

apng(paste(1:frame_count, ".png"))
Example output2

Example output2