R script for city pop web scrape