From P.Dalgaard at biostat.ku.dk  Mon Apr 28 10:38:17 2008
From: P.Dalgaard at biostat.ku.dk (Peter Dalgaard)
Date: Mon, 28 Apr 2008 10:38:17 +0200
Subject: [Rd] R_DEFAULT_DEVICE (PR#11294)
In-Reply-To: <20080427121007.D3AB1283460E@mail.pubhealth.ku.dk>
References: <20080427121007.D3AB1283460E@mail.pubhealth.ku.dk>
Message-ID: <48158CF9.4020507@biostat.ku.dk>

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



[Rd] R_DEFAULT_DEVICE (PR#11294)
Peter Dalgaard