R/boa.plot.close.R

"boa.plot.close" <- function(which = dev.cur())
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
{
   shutdown <- NULL
   current <- boa.par("dev.list")
   idx <- is.element(current, which)
   for(i in intersect(current[idx], dev.list())) {
      shutdown <- dev.off(i)
   }
   boa.par(dev.list = current[!idx])

   return(shutdown)
}

Try the boa package in your browser

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

boa documentation built on May 1, 2019, 9:12 p.m.