Simplified R code for scraping challenge + data.