Nothing
context("function_id")
test_that("Wrapping works.", {
fn <- generate_sphere_function(10)
wfn <- counting_function(fn)
expect_equal(function_id(wfn),function_id(fn))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.