## Not run:
#
# company.name <- getCompany(token=in.auth, universal_name="Facebook")
#
# company.email <- getCompany(token=in.auth, email_domain = "columbia.edu")
#
# # Main Columbia Name:
# company.id <- getCompany(token=in.auth, company_id = company.email$company_id[14])
#
# ## End(Not run)
Run the code above in your browser using DataLab