[Rd] R_DEFAULT_DEVICE (PR#11294)

[ripley at stats.ox.ac.uk]

  This message is in MIME format.  The first part should be readable text,
  while the remaining parts are likely unreadable without MIME-aware tools.

--27464147-2109857085-1209372640=:16392
Content-Type: TEXT/PLAIN; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8BIT

It has already been changed in R-patched, though ....

On Mon, 28 Apr 2008, Peter Dalgaard wrote:

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

-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595
--27464147-2109857085-1209372640=:16392--