Code from the Data Mashups in R book