test_that("get_hpo works", {
testthat::expect_false("hpo" %in% ls())
hpo <- get_hpo()
items <- ls()
testthat::expect_true("hpo" %in% ls())
testthat::expect_true(methods::is(hpo,"ontology_DAG"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.