tests/testthat/ignore_plotStructuresFromNscs.R

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

test_that("plotStructuresFromNscs", {
	drugAnnot <- as(featureData(getAct(rcellminerData::drugData)), "data.frame")
	file <- tempfile() 
	
	pdf(file)
	plotStructuresFromNscs("94600")
	dev.off()
	
	expect_true(file.exists(file))
	
	file <- tempfile() 
	
	pdf(file)
	plotStructuresFromNscs(c("609699", "94600"))
	dev.off()
	
	expect_true(file.exists(file))
})