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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.