\begin{Schunk}
\begin{Sinput}
 library(kutils)
 owd <- getwd()
 tdir <- tempdir()
 setwd(tdir)
 initProject()
 list.files()
 # go back to your original directory
 setwd(owd)
\end{Sinput}
\end{Schunk}
