R source code for tidy data