tests/testthat/test_loadOvarianEsets.R

In 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
  duplicates = esetsAndDuplicates$duplicates
  expect_equal(duplicates[[1]], "GSE12470.GSE12470_GSM312136")
  expect_equal(class(esets[[1]])[1], "ExpressionSet")
  expect_equal(class(esets[[1]]@assayData$exprs), "matrix")

})