Nothing
## ---- 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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.