tests/testthat/test_plotDrugSets.R

test_that("plotDrugSets", {
	drugAct <- exprs(getAct(rcellminerData::drugData))
	drugs <- rownames(drugAct)[1:8]
	
	file <- tempfile() 
	
	pdf(file)
	plotDrugSets(drugAct, drugs, "Test")
	dev.off()
	
	expect_true(file.exists(file))
})
cannin/rcellminer documentation built on Aug. 3, 2021, 8:51 p.m.