Create scraper.R