tests/testthat/test_getDrugActivityRepeatData.R

test_that("getDrugActivityRepeatData returns the correct output", {
	nsc <- "609699"
	drugRepeatAct <- exprs(getRepeatAct(rcellminerData::drugData))
	drugRepeatAnnot <- as(featureData(getRepeatAct(rcellminerData::drugData)), "data.frame")
	
	actData <- getDrugActivityRepeatData(nsc, onlyCellMinerExps = FALSE)
	actDataCm <- getDrugActivityRepeatData(nsc)
	
	iNsc <- which(as.character(drugRepeatAnnot$NSC) == nsc)
	tmp <- drugRepeatAct[iNsc, ]
	rownames(tmp) <- paste0(nsc, "_", seq(nrow(tmp)))
	expect_identical(tmp, actData)
	
	iNsc <- iNsc[drugRepeatAnnot$USED_IN_ZSCORE[iNsc]]
	tmp <- drugRepeatAct[iNsc, ]
	rownames(tmp) <- paste0(nsc, "_", seq(nrow(tmp)))
	expect_identical(tmp, actDataCm)
})
cannin/rcellminer documentation built on Aug. 3, 2021, 8:51 p.m.