Reduce demo outputs gif size

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: a11ytables
 Title: Create Spreadsheet Publications Following Best Practice
-Version: 0.3
+Version: 0.3.0.9001
 Authors@R: c(
     person(given = "Matt", family = "Dray", role = c("aut", "cre"), email = "mwdray@gmail.com"),
     person(given = "Tim", family = "Taylor", role = "ctb"),

NEWS.md

@@ -1,3 +1,7 @@
+# a11ytables 0.3.0.9001
+
+* Reduce gif file size, include additional frame (#121).
+
 # a11ytables 0.3.0
 
 ## Breaking changes

a11ytables.Rproj

@@ -1,22 +1,22 @@
-Version: 1.0
-
-RestoreWorkspace: No
-SaveWorkspace: No
-AlwaysSaveHistory: Default
-
-EnableCodeIndexing: Yes
-UseSpacesForTab: Yes
-NumSpacesForTab: 2
-Encoding: UTF-8
-
-RnwWeave: Sweave
-LaTeX: pdfLaTeX
-
-AutoAppendNewline: Yes
-StripTrailingWhitespace: Yes
-LineEndingConversion: Posix
-
-BuildType: Package
-PackageUseDevtools: Yes
-PackageInstallArgs: --no-multiarch --with-keep.source
-PackageRoxygenize: rd,collate,namespace
+Version: 1.0
+
+RestoreWorkspace: No
+SaveWorkspace: No
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+LineEndingConversion: Posix
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source
+PackageRoxygenize: rd,collate,namespace

data-raw/gif-vignette-workbook.R

@@ -9,14 +9,10 @@ image_paths <- list.files(
 img_cover    <- image_read(image_paths[1])
 img_contents <- image_read(image_paths[2])
 img_notes    <- image_read(image_paths[3])
-img_table    <- image_read(image_paths[4])
+img_table_1  <- image_read(image_paths[4])
+img_table_2  <- image_read(image_paths[4])
 
-images <- c(
-  img_cover,
-  img_contents,
-  img_notes,
-  img_table
-)
+images <- c(img_cover, img_contents, img_notes, img_table_1, img_table_2)
 
 animation <- image_animate(images, fps = 1, dispose = "previous")