tests/testthat/test-ldmatrix.R

context("test-ldmatrix")

test_that("ldmatrix throws an error", {
  skip_on_cran()
  expect_error(LDmatrix("rs3", "YRI", "r2", token = Sys.getenv("LDLINK_TOKEN")))
})

test_that("ldmatrix works", {
  skip_on_cran()
  expect_named(LDmatrix(c("rs3", "rs4", "rs148890987"), "YRI", "r2", token = Sys.getenv("LDLINK_TOKEN")))
})
timyers/ldlinkr documentation built on March 7, 2020, 3:15 a.m.