| Test file for custom graphics devices | |
| <<results=hide>>= | |
| my.Swd <- function(name, width, height, ...) { | |
| cat("running my.Swd\n") | |
| grDevices::png(filename = paste(name, "png", sep = "."), | |
| width = width, height = height, res = 100, units = "in", | |
| bg = "transparent") | |
| } | |
| my.Swd.off <- function() { | |
| cat("shutting down my.Swd\n") | |
| grDevices::dev.off() | |
| } | |
| <<fig=TRUE, grdevice=my.Swd>>= | |
| plot(1:2) | |
| <<fig=TRUE, pdf=TRUE, grdevice=my.Swd>>= | |
| plot(1:3) | |
| <<fig=TRUE, grdevice=my.Swd, pdf=TRUE>>= | |
| plot(1:4) | |
| @ | |
| Done! |