tests/testthat/upload-image.R

context("Upload Image")

test_that("upload image happens successfully", {
  skip_on_cran()

  token_file <- file("captr_key", "r")
  token <- suppressWarnings(readLines(token_file))
  close(token_file)

  set_token(token)

  batch <- create_batch("new_batch")
  path  <- system.file("extdata/wisc_ads", package = "captr")
  files <- dir(path, full.names = TRUE)
  upimage <- lapply(files, upload_image, batch_id = batch$id)
  expect_that(upimage, is_a("list"))

})

Try the captr package in your browser

Any scripts or data that you put into this service are public.

captr documentation built on May 30, 2017, 6:39 a.m.