Add purl'd R code