\begin{Schunk}
\begin{Sinput}
 today <- format(Sys.time(), "%Y%m%d")
 wdir <- "workingdata"
 if(!file.exists(wdir)) dir.create(wdir)
 saveRDS(anes1, file = file.path(wdir, paste0("nes2004-", today, ".rds")))
\end{Sinput}
\end{Schunk}
