\begin{Schunk}
\begin{Sinput}
 keyl <- read.csv("key-long.csv", stringsAsFactors=FALSE)
\end{Sinput}
\end{Schunk}
