context("expect_output")
test_that("Single experiment gene expression files", {
bgee <- Bgee$new(species = "Mus_musculus", dataType = "rna_seq")
data_bgee_mouse_exp <- getData(bgee, experimentId = "GSE43721")
expect_that( data_bgee_mouse_exp, is_a("data.frame") )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.