tests/testthat/ignore_getFingerprintList.R

test_that("getFingerprintList() output is correct", {
	topotecanNsc <- "609699"
	camptothecinNsc <- "94600"
	ids <- c(topotecanNsc, camptothecinNsc)
	
	results <- getFingerprintList(ids, getSmiles(ids), verbose = FALSE)
	expect_true(distance(results[[topotecanNsc]], results[[camptothecinNsc]]) > 0.9)
})

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.