# NOT RUN {
# get the five most recently queued jobs for an app
request_params <- list(
sortField = "createdate",
limit = "5"
)
get_app_jobs(app, request_params)
# queue a job and poll the job's status until it is "Completed"
job <- queue_job(app, answers)
while(job$status != "Completed") {
job <- get_job(job)
Sys.sleep(2)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab