tests/testthat/test_getMoaStr.R

test_that("getMoaStr() returns all applicable MOA strings", {
	expect_identical(getMoaStr("609699"), c("609699"="TOP1"))
	expect_identical(getMoaStr("123127"), c("123127"="TOP2"))
	expect_identical(getMoaStr("762"), c("762"="A7,AlkAg"))
	
	expect_true(is.na(getMoaStr("0")))
	expect_true(any(is.na(getMoaStr(c("94600", "609699", "TEST")))))
})

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.