Dev {RandomFields}R Documentation

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

on logical. Indicates whether dev should be switched on or off
dev see Details
ps name of the pdf or postscript file
cur.cex logical. If TRUE the par parameters of the current device are used, not the standard parameters
paper kind of paper. Postscript parameter
width width of figure. Postscript and pdf parameter
height height of figure. Postscript and pdf parameter
quiet logical. If FALSE additional information is given.
innerwidth height of graphic without the margins; overwrites height if given – experimental state
innerheight width of graphic without the margins; overwrites width if given – experimental state
mai parameters of function par – experimental state
horizontal logical. See postscript
... further parameters for pdf or postscript

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/institute

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*")
[Package RandomFields version 1.3.41 Index]