Nothing
test_that("can inject functons into evaluation context", {
old <- inject_funs(f = function() 1)
defer(inject_funs(old))
ev <- evaluate("f()")
expect_equal(ev[[2]], "[1] 1\n")
})
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.