powered by
dev.off.pdf()
dev.off()
dev.off.pdf(file="Rplots.pdf", crop=NULL, embedFonts="", ...)
invisible()
embedFonts()
pdf.end()
## typical usage doPDF <- !dev.interactive(orNone=TRUE) if(doPDF) pdf(file=(file <- "crop_device.pdf"), width=6, height=6) plot(1) if(doPDF) dev.off.pdf(file)
Run the code above in your browser using DataLab