context("generate: r (tools)")
## Because we put the scalar variables into the packing first, they
## never trigger the language branch of this function. But that's
## something that could in theory change.
test_that("r_offset_to_position", {
expect_equal(r_offset_to_position(0), 1)
expect_equal(r_offset_to_position(10), 11)
expect_equal(r_offset_to_position(quote(x)), quote(x + 1L))
expect_equal(r_offset_to_position(quote(f(x))), quote(f(x) + 1L))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.