tests/testthat/test-portal_query.R

test_that("portal_query works", {
  
    local_finemap <- echodata::portal_query(
        dataset_types = "GWAS",
        phenotypes = c("schizophrenia", "parkinson"),
        file_types = "multi_finemap",
        loci = c("BST1", "CHRNB1", "LRRK2"),
        LD_panels = "1KGphase3"
    )
    testthat::expect_true(methods::is(local_finemap,"data.table"))
    testthat::expect_true(nrow(local_finemap)==3)
})
RajLabMSSM/echodata documentation built on Nov. 21, 2023, 8 a.m.