\begin{Schunk}
\begin{Sinput}
 wdir <- "workingdata"
 getwd()
\end{Sinput}
\begin{Soutput}
[1] "/home/pauljohn/GIT/pj-guides/Rcourse/summeR_workshop/summeR-2/summeR-2-6-reg_tables"
\end{Soutput}
\begin{Sinput}
 list.files(wdir)
\end{Sinput}
\begin{Soutput}
[1] "nes2004-20180515.rds"           "nes2004-20190828.rds"          
[3] "nes2004-objects-20180515.RData" "nes2004-objects-20190828.RData"
\end{Soutput}
\begin{Sinput}
 fl <- list.files(wdir, full.names = TRUE)
\end{Sinput}
\end{Schunk}
