\begin{Schunk}
\begin{Sinput}
 if (SAVEME) png(file = "afilename.png", height = 800, width = 800)
 ## draw your plot here
 if (SAVEME) dev.off()
\end{Sinput}
\end{Schunk}
