R/0pre270.R

### 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"))) 
               if(getOption("newDevice")) dev.new(...)
    }
}
options("newDevice"=FALSE)

Try the distr package in your browser

Any scripts or data that you put into this service are public.

distr documentation built on May 31, 2017, 3:55 a.m.