tests/testthat/test-raw.R
test_that("returns raw email address", {
expect_equal(
raw(as.address(c("Gerald <gerry@gmail.com>", "gerry@gmail.com"))),
rep("gerry@gmail.com", 2)
)
})
test_that("returns raw email address", {
expect_equal(
raw(as.address(c("Gerald <gerry@gmail.com>", "gerry@gmail.com"))),
rep("gerry@gmail.com", 2)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.
