Don't open on-screen windows in tests

tidyverse · Jun 27, 2012 · 6fde629 · 6fde629
1 parent 74f006b
commit 6fde629
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/inst/tests/test-aes-setting.r b/inst/tests/test-aes-setting.r
@@ -5,7 +5,9 @@ test_that("Aesthetic parameters must match length of data", {
   p <- ggplot(df, aes(x, y))
 
   set_colours <- function(colours) {
+    pdf(file=NULL)
     print(p + geom_point(colour = colours))
+    dev.off()
   }
 
   set_colours("red")