reshape code snippets in r

spread a data frame in a list in r