context("function_id")
test_that("Wrapping works.", {
fn <- generate_sphere_function(10)
wfn <- counting_function(fn)
expect_equal(function_id(wfn),function_id(fn))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.