tests/testthat/test-01-download.R

In yotover: An Advanced Guide to Trade Policy Analysis

context("Download")

olddir <- Sys.getenv("YOTOV_DB_DIR")
Sys.setenv(YOTOV_DB_DIR = normalizePath(file.path(getwd(), "yotover"),
  mustWork = FALSE
))

test_that("Download succeeds", {
  skip_on_cran()
  yotov_db_download()
  expect_true(yotov_status())
})

Sys.setenv(YOTOV_DB_DIR = olddir)