Start work on scraper mock in R