| Dev {RandomFields} | R Documentation |
Dev chooses between the graphical devices
screen, postscript and pdf
Dev(on, dev, ps=NULL, cur.cex=TRUE, paper="special", width=5, height=5,
quiet=FALSE, innerwidth, innerheight, mai, ...)
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 |
... |
further parameters for pdf or postscript |
The parameter dev might be
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=FALSEdev is called, and the
suffix dev is added to psDev 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.
dev, ps, cur.cex, paper,
width, height and ... are ignored if on=FALSE.
NULL. Side effect is that the global variable .dev.orig
is created when Dev(on=TRUE,...) is called.
Martin Schlather, schlath@hsu-hh.de http://www.unibw-hamburg.de/WWEB/math/schlath/schlather.html
## 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*")