R/check.new.dev.r

check.new.dev <- function( height=8.5, width=11) {
  if ( !(.Device %in% c('pdf','postscript','cairo_pdf','cairo_ps')) ) dev.new( width=width, height=height )
}
mccreigh/waveprac documentation built on May 22, 2019, 2:51 p.m.