# These are tests of 'grepRet'
context("All tests of 'grepr'")
test_that("Basic functionality", {
x <- c("Henrik", "Kenneth", "Conny", "Johnny", "Herakleitos")
expect_equivalent(grepr("h", x), c("Kenneth", "Johnny"))
expect_equivalent(grepr("h|H", x), x[-3])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.