tests/testthat/test_loadPancreasDatasets.R

In bhklab/MetaGxPancreas: Transcriptomic Pancreatic Cancer Datasets

library(MetaGxPancreas)

context("Checking loadPancreasDatasets")

test_that("ensure datasets and duplicates are properly loaded from the hub and package", {
  dataAndDuplicates = MetaGxPancreas::loadPancreasDatasets()
  seData = dataAndDuplicates$SEs
  expect_equal(class(seData[[1]])[1], "RangedSummarizedExperiment")
})