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))
})

Try the rcellminer package in your browser

Any scripts or data that you put into this service are public.

rcellminer documentation built on Nov. 26, 2020, 2:02 a.m.