Я создал анимацию .gif из серии изображений .png, используя следующий код:
gif <- function(name, imgDir, format, fps, delete) {
require(magick)
require(gtools)
imgs <- mixedsort(list.files(path = imgDir, pattern = paste("*.", format, sep = "")))
image <- image_read(paste(imgDir, "/", imgs, sep = ""))
animation <- image_animate(image, fps = fps)
image_write(animation, paste(name, ".gif", sep = ""))
if (delete) unlink(paste(imgDir, "/*", sep = ""))
}
gif("animation", "tmp", "png", 10, TRUE)
Анимированный .gif повторяется непрерывно.Я хочу добавить задержку х секунд после каждого цикла.Есть ли параметр для image_animate() или что-то для этой цели?