if (FALSE) {
temp <- tempfile()
dir.create(temp)
g1 <- function() plot(1,1)
pdfDisplay(g1(),"TestGraph", dir = temp,
parg = list(mar = c(6,6,6,6), ps = 24,lwd = 4))
g1 <- function() plot(1,1, col = "red")
pdfDisplay(g1(), "TestGraph", dir = temp,
parg = list(mar = c(6,6,6,6), ps = 24,lwd = 4))}
Run the code above in your browser using DataLab