\begin{Schunk}
\begin{Sinput}
 fn <- "ortann.csv"
 URL <- paste0("http://pj.freefaculty.org/guides/", 
                  "stat/DataSets/OregonTemps/", fn)
 download.file(URL, destfile = file.path(ddir, "oregon.csv"))
 list.files(ddir)
\end{Sinput}
\end{Schunk}
