context("Test multiMatch")
res1 <- multiMatch('A first ref @Cool and a second @Sweet', '@[[:alnum:]]+')
res2 <- multiMatch('A first ref @Cool and a second @Sweet', '&[[:alnum:]]+')
test_that("mutiMatch", {
expect_true(all(res1 == c('@Cool', "@Sweet")))
expect_equal(length(res2), 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.