## 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*")
Run the code above in your browser using DataLab