dev_off_crop | R Documentation |
dev.off.crop()
calls dev.off()
to close the
plotting device and then crops the produced graphic. This works on
Unix-like systems if the right underlying Unix tools are installed and
found (see below).
dev.off.crop(file = NULL, warn = TRUE, which = dev.cur(),
post.cmd = "1>/dev/null 2>&1", ...)
file |
output file name including extension. |
warn |
|
which |
see |
post.cmd |
|
... |
additional arguments passed to the underlying |
If the underlying
tools (given in parentheses) are installed and found,
supported file extensions are .eps
(epstool
), .pdf
(pdfcrop
) and
.png
(mogrify
). If they are not
installed or found or if an unsupported operating system is used,
dev.off()
is called instead (and thus no cropping is done).
invisible()
.
Marius Hofert
dev.off()
for closing a device.
## EPS
setEPS() # or use onefile = FALSE, horizontal = FALSE, paper = "special" in postscript()
postscript(file = (file <- "crop.eps"))
plot(1:10, 10:1, xlab = "x", ylab = "y")
dev.off.crop(file = file)
stopifnot(file.remove("crop.eps")) # clean-up
## PDF
pdf(file = (file <- "crop.pdf"))
plot(1:10, 10:1, xlab = "x", ylab = "y")
dev.off.crop(file = file)
stopifnot(file.remove("crop.pdf")) # clean-up
## PNG with white background
png(filename = (file <- "crop.png"))
plot(1:10, 10:1, xlab = "x", ylab = "y")
dev.off.crop(file = file)
stopifnot(file.remove("crop.png")) # clean-up
## PNG with transparent background
## Not doable by 'mogrify' (only cropped vertically, not horizontally)
if(FALSE) {
png(filename = (file <- "crop.png"), bg = "transparent")
plot(1:10, 10:1, xlab = "x", ylab = "y")
dev.off.crop(file = file)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.