R/dev.new.R

In andrewzm/INLA: Functions which allow to perform full Bayesian analysis of latent Gaussian models using Integrated Nested Laplace Approximaxion

## Export: inla.dev.new

##! \name{inla.dev.new}
##! \alias{inla.dev.new}
##!
##! \title{Opens a new device}
##!
##! \description{Open a new device using \code{\link{dev.new}} unless using RStudio}
##! \usage{
##!     inla.dev.new(...)
##! }
##! \arguments{
##!   \item{...}{Optional arguments to \code{\link{dev.new}}} 
##!}
##! \value{
##!   The value of \code{\link{dev.new}} if not running RStudio, otherwise \code{NULL} 
##! }
##! \author{Havard Rue \email{hrue@math.ntnu.no}}

`inla.dev.new` = function(...)
{
    ## If running in RStudio then don't open a new device,  otherwise,  do.
    dev = getOption("device")
    if (is.character(dev) && inla.strncasecmp(dev, "RStudioGD")) {
        ret = NULL
    } else {
        ret = dev.new(...)
    }
    if (exists("inla.dev.new.hook") && is.function(inla.dev.new.hook)) {
        inla.dev.new.hook()
    }
    return (invisible(ret))
}