Start testing with gifski 1.4.3

Author: jeroen

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: gifski
 Type: Package
 Title: Highest Quality GIF Encoder
-Version: 0.8.7.1
+Version: 1.4.3
 Authors@R: c(
     person("Jeroen", "Ooms", ,"jeroen@berkeley.edu", role = c("aut", "cre"),
       comment = c(ORCID = "0000-0002-4035-0289")),

R/gifski.R

@@ -34,7 +34,7 @@ gifski <- function(png_files, gif_file = 'animation.gif', width = 800, height =
     stop("Target directory does not exist:", dirname(gif_file))
   width <- as.integer(width)
   height <- as.integer(height)
-  delay <- as.integer(delay * 100)
+  delay <- as.numeric(delay)
   loop <- as.logical(loop)
   progress <- as.logical(progress)
   .Call(R_png_to_gif, enc2utf8(png_files), enc2utf8(gif_file), width, height, delay, loop, progress)