Create getCompanies.R