tests/testthat/test-download_image_urls_from_name.R

In richelbilderbeek/aureole: R interface to the Encyclopedia of Life

test_that("use", {

  df <- download_image_urls_from_name("Homo sapiens")

  # It can be downloaded
  destfile <- tempfile()
  utils::download.file(
    url = df$url[1],
    destfile = destfile,
    quiet = TRUE
  )
  expect_true(file.exists(destfile))
})