Fix thumbnail path

cpsievert · cpsievert · commit 4b4f77487d79 · 2015-07-31T10:33:49.000-04:00
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -82,7 +82,7 @@ save_outputs <- function(gg, name) {
       try(print(gg))
       dev.off()
       # now convert png to a smaller size
-      args <- c(filename, "-density", "72x72", "-write", 
+      args <- c(gg_file, "-density", "72x72", "-write", 
                 file.path(gg_thumb_dir, paste0(name, ".png")), "+delete")
       system2("convert", args)
     }

Original file line number	Diff line number	Diff line change
`@@ -82,7 +82,7 @@ save_outputs <- function(gg, name) {`
`82`	`82`	`try(print(gg))`
`83`	`83`	`dev.off()`
`84`	`84`	`# now convert png to a smaller size`
`85`		`- args <- c(filename, "-density", "72x72", "-write",`
	`85`	`+ args <- c(gg_file, "-density", "72x72", "-write",`
`86`	`86`	`file.path(gg_thumb_dir, paste0(name, ".png")), "+delete")`
`87`	`87`	`system2("convert", args)`
`88`	`88`	`}`