added null device (#340)

IRkernel · May 19, 2016 · 24e6833 · 24e6833
1 parent 52d4f4f
commit 24e6833
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/R/environment.r b/R/environment.r
@@ -61,3 +61,13 @@ init_cran_repo <- function() {
 init_session <- function() {
     init_cran_repo()
 }
+
+
+init_null_device <- function() {
+    null_file <- switch(.Platform$OS.type, windows = 'NUL', unix = '/dev/null')
+    null_device <- function(filename = null_file, ...) png(filename, ...)
+
+    if (identical(getOption('device'), pdf)) {
+        options(device = null_device)
+    }
+}
diff --git a/R/execution.r b/R/execution.r
@@ -325,6 +325,7 @@ initialize = function(...) {
     # in the current session
     init_shadowenv()
     init_session()
+    init_null_device()
 
     callSuper(...)
 },