Merge pull request #182 from renkun-ken/plot-args

Use dev.args option when creating png device before replay
REditorSupport · Jan 24, 2020 · b6597b5 · b6597b5
2 parents 84a77c1 + 5d47b6e
commit b6597b5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/init.R b/R/init.R
@@ -72,7 +72,8 @@ if (interactive() && !identical(Sys.getenv("RSTUDIO"), "1")) {
               plot_updated <<- FALSE
               record <- recordPlot()
               if (length(record[[1]])) {
-                png(plot_file)
+                dev_args <- getOption("dev.args")
+                do.call(png, c(list(filename = plot_file), dev_args))
                 on.exit({
                   dev.off()
                   if (!is.null(plot_history_file)) {