tests/testthat.R

In ropensci/IEEER: Interface to the IEEE Xplore Gateway

library(testthat)
library(IEEER)

if(can_IEEE_connect()) {
    # run only if can connect to IEEE
    test_check("IEEER")
} else {
    # if can't connect and not CRAN, throw an error
    if (identical(Sys.getenv("NOT_CRAN"), "true"))
        stop("Can't connect to IEEE")
}