test_that("getTaxonInfo queries work", {
dat <- gemma.R:::get_taxa_by_ids(c("mouse", "human"))
raw <- gemma.R:::get_taxa_by_ids(c("mouse", "human"),raw = TRUE)
expect_type(dat, "list")
expect_type(raw, "list")
expect_equal(
dat$taxon.scientific,
raw %>% purrr::map_chr('scientificName')
)
expect_true(nrow(dat)==2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.