R_DEFAULT_DEVICE (PR#11294)

p.c.j.kleiweg at rug.nl wrote:

Setting enviroment variable R_DEFAULT_DEVICE causes an error.
The patch below fixes this.

Probably, but it may not be the best fix, so please give your analysis
of the situation. Reproducible example and all that.

To do your homework for you, the issue seems to be this:

viggo:~/>R_INTERACTIVE_DEVICE=pdf ~/misc/r-release-branch/BUILD-dist/bin/R

R version 2.7.0 (2008-04-22)
....

plot(0)

Error in plot.new() : no active or default device

names(options())

[1] "HTTPUserAgent"               "OutDec"
[3] "add.smooth"                  "bitmapType"
[5] "browser"                     "check.bounds"
[7] "continue"                    "contrasts"
[9] "defaultPackages"             "device.R_INTERACTIVE_DEVICE"

OBS!!!

[11] "device.ask.default"          "digits"
.....
[47] "useFancyQuotes"              "verbose"
[49] "warn"                        "warnings.length"
[51] "width"

I guess the same goes for R_INTERACTIVE_DEVICE.


--- R-2.7.0/src/library/grDevices/R/zzz.R       2008-04-27 13:49:11.000000000 +0200
+++ R-2.7.0/src/library/grDevices/R/zzz.R.new   2008-04-27 13:59:37.000000000 +0200
@@ -22,7 +22,7 @@
     extras <- if(.Platform$OS.type == "windows")
         list(windowsTimeouts = c(100L,500L)) else
     list(bitmapType = if(capabilities("aqua")) "quartz" else if(capabilities("cairo")) "cairo" else "Xlib")
-    defdev <- Sys.getenv("R_DEFAULT_DEVICE")
+    defdev <- as.character(Sys.getenv("R_DEFAULT_DEVICE"))
     if(!nzchar(defdev)) defdev <- "pdf"
     device <- if(interactive()) {
         intdev <- Sys.getenv("R_INTERACTIVE_DEVICE")




--please do not edit the information below--

Version:
 platform = i686-pc-linux-gnu
 arch = i686
 os = linux-gnu
 system = i686, linux-gnu
 status =
 major = 2
 minor = 7.0
 year = 2008
 month = 04
 day = 22
 svn rev = 45424
 language = R
 version.string = R version 2.7.0 (2008-04-22)

Locale:
LC_CTYPE=nl_NL at euro;LC_NUMERIC=C;LC_TIME=nl_NL at euro;LC_COLLATE=C;LC_MONETARY=C;LC_MESSAGES=nl_NL at euro;LC_PAPER=nl_NL at euro;LC_NAME=C;LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=nl_NL at euro;LC_IDENTIFICATION=C

Search Path:
 .GlobalEnv, package:stats, package:graphics, package:utils, package:datasets, package:grDevices, package:methods, Autoloads, package:base

--
  O__  ---- Peter Dalgaard             ??ster Farimagsgade 5, Entr.B
 c/ /'_ --- Dept. of Biostatistics     PO Box 2099, 1014 Cph. K
(*) \(*) -- University of Copenhagen   Denmark      Ph:  (+45) 35327918
~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk)              FAX: (+45) 35327907