tests/testthat/testTaxonEndpoints.R

In PavlidisLab/gemma.R: A wrapper for Gemma's Restful API to access curated gene expression data and differential expression analyses

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)
})