test_that( "works as expected", {
expect_equal(
astext( c( 1, 2, 4 ) ),
"c( 1, 2, 4 )"
)
expect_equal(
astext( c( 'a', 'b', 'c' ) ),
"c( 'a', 'b', 'c' )"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.