\begin{Schunk}
\begin{Sinput}
 wdir23 <- "../summeR-2-3-recoding/workingdata"
 list.files(wdir23)
\end{Sinput}
\begin{Soutput}
[1] "nes2004-20190828.rds"           "nes2004-objects-20190828.RData"
\end{Soutput}
\end{Schunk}
\begin{Schunk}
\begin{Sinput}
 file.copy(from = wdir23, to = ".", recursive = TRUE, overwrite = TRUE)
\end{Sinput}
\begin{Soutput}
[1] TRUE
\end{Soutput}
\end{Schunk}
