\begin{Schunk}
\begin{Sinput}
 keylong <- kutils::keyTemplate(anes1, long = TRUE)
 keySave(keylong, file = "anes-longtemp.csv")
\end{Sinput}
\end{Schunk}
