Different plot device options

curve(sin(x)/exp(x/50),0,50)
HTMLon()
showgraph()

pdf(file="example.pdf", width=5, height=5, pointsize=10)
curve(sin(x)/exp(x/50),0,50)
dev.off()
HTMLon()
HTMLembed('example.pdf',width=300,height=300)

mypdf <- function(file="Rplot.pdf",width=4,height=4,...) {
gsexe <- Sys.getenv("R_GSCMD")
if (is.null(gsexe) || nchar(gsexe) == 0) gsexe <- "gs"
res=300;
cmd <- paste("|", gsexe, " -dNOPAUSE -dBATCH -q -sDEVICE=pdfwrite -dAutoRotatePages=/None -sOutputFile=",
file, " -r", res, " -g", ceiling(res * width), "x", ceiling(res * height),
" -c [ /PageMode /FullScreen /DOCVIEW pdfmark -",
sep = "")
postscript(file = cmd, paper = "special", width=width, height=height, horizontal = FALSE, ...)
}

mypdf(file="example_full_screen.pdf", width=3, height=3, pointsize=10)
curve(sin(x)/exp(x/50),0,50)
dev.off()
HTMLon()
HTMLembed('example_full_screen.pdf',width=300,height=300)

require(RSvgDevice)
devSVG(file="example.svg", width=4, height=4)
curve(sin(x)/exp(x/50),0,50)
dev.off()
HTMLon()
HTMLembed('example.svg',width=300,height=300)