## ---- eval=FALSE, install------------------------------------------------
#  install.packages("devtools")
#  devtools::install_github("soodoku/captr")

## ----eval=FALSE, load_lib------------------------------------------------
#  library(captr)

## ---- eval=FALSE, set_token----------------------------------------------
#  # Not a real token
#  set_token("6dbee39a047c4de2b576b966")

## ---- eval=FALSE, create_batch-------------------------------------------
#  batch <- create_batch("wisc_ads")
#  batch$id

## ---- eval=FALSE, upload_image-------------------------------------------
#  path <- system.file("extdata/wisc_ads", package = "captr")
#  files <- dir(path, full.names = TRUE)
#  upimage <- lapply(files, upload_image, batch_id = batch$id)
#  
#  names(upimage[[5]])

## ---- eval=FALSE, test_readiness-----------------------------------------
#  tester <- test_readiness(batch_id=batch$id)
#  tester$errors

## ---- eval=FALSE, batch_price--------------------------------------------
#  price <- batch_price(batch_id=batch$id)
#  price$total_user_cost_in_cents

## ---- eval=FALSE, submit_batch-------------------------------------------
#  submit <- submit_batch(batch_id=batch$id)
#  submit$related_job_id

## ---- eval=FALSE, track_progress-----------------------------------------
#  progress <- track_progress(submit$related_job_id)
#  progress$percent_completed

## ---- eval=FALSE, list_instance_sets-------------------------------------
#  list_instances <- list_instance_sets(job_id=submit$related_job_id)
#  list_instances$id

## ---- eval=FALSE, get_instance_set---------------------------------------
#  res1 <- get_instance_set(instance_set_id=list_instances$id[1])
#  res1$best_estimate

## ---- eval=FALSE, get_all------------------------------------------------
#  get_all(job_id=submit$related_job_id)

