Don't open a new graphics device

r-lib · Feb 20, 2014 · 52c30c8 · 52c30c8
1 parent ba03237
commit 52c30c8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/build.r b/R/build.r
@@ -146,7 +146,8 @@ build_demos <- function(pkg = ".") {
 
   for(i in seq_along(title)) {
     demo_code <- readLines(file.path(demo_dir, in_path[i]))
-    demo_expr <- evaluate(demo_code, new.env(parent = globalenv()))
+    demo_expr <- evaluate(demo_code, new.env(parent = globalenv()),
+      new_device = FALSE)
 
     pkg$demo <- replay_html(demo_expr, pkg = pkg, name = str_c(pieces[i], "-"))
     pkg$pagetitle <- title[i]