1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
### for working under R < 2.8.0
if(getRversion()<'2.8.0'){
devNew <- function(...){
if(length(dev.list())>0)
get(getOption("device"))(...)
}
}else{
devNew <- function(...){
if(length(dev.list())>0){
if(!is.null(getOption("newDevice"))){
nrOpen <- length(grDevices::dev.list())
if(getOption("newDevice")==TRUE) {
if(interactive()){
while(nrOpen >20){
invisible(readline(prompt=
paste(gettext(
"Too many open graphic devices; please shut some."),
"\n", gettext(
"When you have shut some devices, press [enter] to continue"),
"\n", sep="")))
nrOpen <- length(grDevices::dev.list())
}
}else{
if(nrOpen >20){
while(nrOpen<-length(grDevices::dev.list())>5)
grDevices::dev.off(which=grDevices::dev.list()[2])
}
}
dev.new(...)
}
}
}
}
}
options("newDevice"=FALSE)
|
