Please check

jeroen · jeroen · commit 2bc70d9ae050 · 2018-09-11T01:25:42.000+02:00
diff --git a/R/gifski.R b/R/gifski.R
@@ -71,7 +71,7 @@ save_gif <- function(expr, gif_file = 'animation.gif', width = 800, height = 600
   filename <- file.path(imgdir, "tmpimg_%05d.png")
   grDevices::png(filename, width = width, height = height, ...)
   graphics::par(ask = FALSE)
-  tryCatch(eval(expr), finally = dev.off())
+  tryCatch(eval(expr), finally = grDevices::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)
 }

Original file line number	Diff line number	Diff line change
`@@ -71,7 +71,7 @@ save_gif <- function(expr, gif_file = 'animation.gif', width = 800, height = 600`
`71`	`71`	`filename <- file.path(imgdir, "tmpimg_%05d.png")`
`72`	`72`	`grDevices::png(filename, width = width, height = height, ...)`
`73`	`73`	`graphics::par(ask = FALSE)`
`74`		`- tryCatch(eval(expr), finally = dev.off())`
	`74`	`+ tryCatch(eval(expr), finally = grDevices::dev.off())`
`75`	`75`	`images <- list.files(imgdir, pattern = 'tmpimg_\\d{5}.png', full.names = TRUE)`
`76`	`76`	`gifski(images, gif_file = gif_file, width = width, height = height, delay = delay, loop = loop, progress = progress)`
`77`	`77`	`}`