[Rd] R_DEFAULT_DEVICE (PR#11294)

[Peter Dalgaard]

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
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
>   


-- 
   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