tests/testthat/test_loading_separate_experiment.R

In BgeeDB: Annotation and gene expression data retrieval from Bgee database. TopAnat, an anatomical entities Enrichment Analysis tool for UBERON ontology

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