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")))))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.