tests/testthat/test_api.r

# skip()
# skip_on_cran()
# skip_on_ci()

stat <- api_status()
if(inherits(stat, "response")) skip("Server issues")

test_that("status", 
{
	expect_true(is.list(stat))
	expect_gte(length(stat), 2)
})

Try the ieugwasr package in your browser

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

ieugwasr documentation built on July 2, 2024, 1:06 a.m.