tests/testthat/test-tar_envir.R

In targets: Dynamic Function-Oriented 'Make'-Like Declarative Pipelines

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")
})