tests/testthat/test_subsetTo.R

In bhklab/PharmacoGx: Analysis of Large-Scale Pharmacogenomic Data

library(PharmacoGx)

context("Checking subset.")

test_that("Intersection result did not change since last time", {
data(CCLEsmall)
CCLEsmaller <- subsetTo(CCLEsmall, drugs=treatmentNames(CCLEsmall), cells=sampleNames(CCLEsmall))
expect_equal(CCLEsmaller@annotation, CCLEsmall@annotation)
expect_equal(attributes(CCLEsmaller@molecularProfiles$rna), attributes(CCLEsmall@molecularProfiles$rna))
})