tests/testthat/test_plotDrugActivityRepeats.R

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

test_that("plotDrugActivityRepeats", {
	file <- tempfile() 
	
	pdf(file)
	plotDrugActivityRepeats("609699")
	dev.off()
	
	expect_true(file.exists(file))
	
	file <- tempfile() 
	
	pdf(file)
	plotDrugActivityRepeats("609699", useZScore=TRUE, maxRepNum=3)
	dev.off()
	
	expect_true(file.exists(file))
})