test_that("check_required_cols works", {
d <- echofinemap::required_cols()
all_methods <- d$method
dat <- echodata::BST1
finemap_methods <- echofinemap::check_required_cols(dat=dat)
testthat::expect_equal(finemap_methods, all_methods[all_methods!="ABF"])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.