Close graphics device before creating images

Author: jeroen

R/gifski.R

@@ -70,9 +70,8 @@ save_gif <- function(expr, gif_file = 'animation.gif', width = 800, height = 600
   on.exit(unlink(imgdir, recursive = TRUE))
   filename <- file.path(imgdir, "tmpimg_%05d.png")
   grDevices::png(filename, width = width, height = height, ...)
-  on.exit(grDevices::dev.off(), add = TRUE, after = FALSE)
   graphics::par(ask = FALSE)
-  eval(expr)
+  tryCatch(eval(expr), finally = dev.off())
   images <- list.files(imgdir, pattern = 'tmpimg_\\d{5}.png', full.names = TRUE)
   gifski(images, gif_file = gif_file, width = width, height = height, delay = delay, loop = loop, progress = progress)
 }