# NOT RUN {
access_token <- acoustic_auth(org_client_id = "abc",
org_client_secret = "xyz",
my_refresh_token = "123")
job_id <- get_all_contacts(access_token)
get_job_status(1, access_token, "123456789")
# }
Run the code above in your browser using DataLab