x = seq(0, 20*pi, len=1000)
plot(x*sin(x), x*cos(x), type="l")
try({ ## on some machines, some of the devices may not be available
c(
savepdf("spiral", dir=tempdir()),
savepng("spiral", dir=tempdir()),
saveeps("spiral", dir=tempdir()),
savetiff("spiral", dir=tempdir())
)
})
Run the code above in your browser using DataLab