tmpdir <- tempdir()
pdffile <- file.path(tmpdir, "test-plot.pdf")
pdf(pdffile)
plot(1:5)
dev.off()
pngfile <- file.path(tmpdir, "test.png")
pdf2png(pdffile)
pdf2png(pdffile, outfile=pngfile)
testfile <- system.file("/doc/intro.pdf", package="limma")
if(file.exists(testfile)) {
pdf2png(testfile, outdir=tmpdir)
Sys.sleep(1)
dir(tmpdir)
## or waiting
pdf2png(testfile, outdir=tmpdir, wait=TRUE)
}
Run the code above in your browser using DataLab