tests/testthat/test_plotDrugSets.R

In rcellminer: rcellminer: Molecular Profiles, Drug Response, and Chemical Structures for the NCI-60 Cell Lines

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