Choosing the device

Description

Dev chooses between the graphical devices screen, postscript and pdf

Usage

Dev(on, dev, ps=NULL, cur.cex=TRUE, paper="special", width=5, height=5,
    quiet=FALSE, innerwidth, innerheight, mai,  horizontal = FALSE, ...)

Arguments

Details

The parameter dev might be

logical

If suffix of ps is either "eps", "ps" or "pdf" the respective file is created. Otherwise, a postscript file ending with suffix "eps" is created if dev=TRUE and a pdf file with suffix "pdf" if dev=FALSE

character

A function with name dev is called, and the suffix dev is added to ps

numeric

Dev switches to the device with number dev; if such a device does not exist, a new X11 device is created. If dev<2 the device opened by Dev(on=TRUE,...) is closed by Dev(on=FALSE); otherwise only par(new=F) is applied to the device.

The parameters dev, ps, cur.cex, paper, width, height and ... are ignored if on=FALSE.

Value

NULL. Side effect is that the global variable .dev.orig is created when Dev(on=TRUE,...) is called.

Author(s)

Martin Schlather, martin.schlather@math.uni-goettingen.de http://www.stochastik.math.uni-goettingen.de/~schlather

Examples

  ## first an eps-file test.eps is created, then a jpeg-file,
  ## finally the figure is plotted on the screen
  dir(pattern="test*")
  dev.list <- list(TRUE, 1)
  if (interactive()) dev.list <- c(dev.list, "jpeg")
  for (dev in dev.list) {
    Print(dev)
    size <- if (dev=="jpeg") 450 else 5
    err <- class(try(Dev(TRUE, dev, ps="test", height=size, width=size)))
    if (err!="try-error") {
      plot(0, 0, main=paste("dev=", dev))
      # readline("press return")
      Dev(FALSE)
    }
  }
  dir(pattern="test*")