tests/testthat/test_plotCellMiner.R

test_that("plotCellMiner", {
	drugAct <- exprs(getAct(rcellminerData::drugData))
	molDataMats <- getMolDataMatrices()
	plotDataMats <- molDataMats[c("exp", "cop", "mut")]
	
	file <- tempfile() 
	
	options(bitmapType="cairo")
	pdf(file)
	plotCellMiner(drugAct, plotDataMats, plots=c("mut", "drug", "cop"), nsc="94600", gene="TP53")
	dev.off()
	
	expect_true(file.exists(file))
})
CBIIT/rcellminer documentation built on July 28, 2021, 8:51 a.m.