Setting enviroment variable R_DEFAULT_DEVICE causes an error.
The patch below fixes this.
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
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
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--