context("getDigits")
test_that("getDigits", {
expect_equal(getDigits('a1')[[1L]][1L], "1")
expect_equal(getDigits('a1?3', collapse='_')[[1L]], "1_3")
expect_equal(getDigits(c('a1', '?3')), list("1", "3"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.