tests/testthat/test_loadOvarianEsets.R

In bhklab/MetaGxOvarian: Transcriptomic Ovarian Cancer Datasets

library(MetaGxOvarian)

context("Checking loadOvarianEsets")


test_that("ensure datasets and duplicates are properly loaded from the hub and package", {
  esetsAndDuplicates = MetaGxOvarian::loadOvarianEsets()
  esets = esetsAndDuplicates$esets
    expect_equal(class(esets[[1]])[1], "ExpressionSet")
  expect_equal(class(esets[[1]]@assayData$exprs), "matrix")

})