context("test-sinimr.R")
test_that("mm returns a valid output", {
var <- mm(5807587000)
expect_is(var, "character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.