Nothing
context("populate")
test_that("can populate existing env", {
env <- new.env(parent = emptyenv())
populate_env(env, letters, identity)
expect_equal(env$a, quote(a))
expect_equal(env$k, quote(k))
expect_null(env$Z)
})
test_that("cannot update existing vars", {
env <- new.env(parent = emptyenv())
populate_env(env, "v", identity)
expect_error(populate_env(env, letters, identity), "existing")
})
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.