context('Chain')
test_that('Chain tests', {
ans <- Chain('test', 'tom')
expect_true(attr(ans, 'chain'))
expect_is(ans, 'list')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.