\begin{Schunk}
\begin{Sinput}
 if (SAVEME) pdf(file = "afilename.pdf", height = 10, width = 7)
 ## make a plot, silly
 if (SAVEME) dev.off()
\end{Sinput}
\end{Schunk}
