context("Check verbatimize")
x <- c('foo', 'bar', 'buz')
x_pasted <- '\\verb=foo=, \\verb=bar=, \\verb=buz='
test_that("verbatimize", {
expect_that(verbatimize(x) == x_pasted, is_true())
expect_that(length(verbatimize(x)), equals(1))
expect_that(verbatimize(x), is_a('character'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.