tests/testthat/test-studiesAndLeadVariantsForGeneByL2G.R

In otargen: Access Open Target Genetics

test_that("test studiesAndLeadVariantsForGeneByL2G works", {
  skip_on_cran()
  expected_1 <- otargen::studiesAndLeadVariantsForGeneByL2G(gene="ENSG00000169174")
  expected_2 <- otargen::studiesAndLeadVariantsForGeneByL2G(gene=list("PCSK9", "TASOR"))
  expect_s3_class(expected_1, "data.frame")
  expect_s3_class(expected_2, "data.frame")
  expect_error(otargen::studiesAndLeadVariantsForGeneByL2G(gene = "ENSGXXXXXXXXX"))
  expect_false(is.null(dim(expected_1)))
  expect_false(is.null(dim(expected_2)))
})