Nothing
tar_test("tar_envir() automatic default", {
out <- tar_envir()
exp <- environment()
expect_equal(out, exp)
})
tar_test("tar_envir() custom default", {
exp <- new.env(parent = emptyenv())
out <- tar_envir(default = exp)
expect_equal(out, exp)
})
tar_test("tar_envir() in a pipeline with automatic default", {
skip_cran()
envir <- new.env(parent = globalenv())
tar_option_set(envir = envir)
tar_script({
evalq({
f <- function(z) {
g(z)
}
g <- function(z) {
ls(tar_envir())
}
}, envir = tar_option_get("envir"))
list(
tar_target(x_target, "x_value"),
tar_target(y, f(x_target))
)
})
tar_make(callr_function = NULL, envir = tar_option_get("envir"))
expect_equal(tar_read(y), "x_target")
})
tar_test("tar_envir() in a pipeline with custom default", {
skip_cran()
envir <- new.env(parent = globalenv())
tar_option_set(envir = envir)
tar_script({
evalq({
f <- function(z) {
g(z)
}
g <- function(z) {
default <- new.env(parent = emptyenv())
ls(tar_envir(default = default))
}
}, envir = tar_option_get("envir"))
list(
tar_target(x_target, "x_value"),
tar_target(y, f(x_target))
)
})
tar_make(callr_function = NULL, envir = tar_option_get("envir"))
expect_equal(tar_read(y), "x_target")
})
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.