tests/testthat/test_getDrugMoaList.R

test_that("getDrugMoaList returns all applicable MOA strings", {
	expect_identical(getDrugMoaList("609699"), "TOP1")
	expect_identical(getDrugMoaList("123127"), "TOP2")
	expect_identical(sort(getDrugMoaList("762")), c("A7", "AlkAg"))
	
	expect_null(getDrugMoaList("0"))
})

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.