Nothing
drake_context("commands")
test_with_dir("changes to commands are handled well", {
config <- dbug()
expect_equal(
sort(outdated_impl(config)),
sort(c(
"drake_target_1",
"combined",
"final",
"myinput",
"nextone",
"yourinput"
))
)
testrun(config)
expect_equal(
outdated_impl(config),
character(0)
)
config$plan$command[[2]] <- parse(text = "f(1+ 1) # nothing should rebuild")
config$spec <- create_drake_spec(
plan = config$plan,
envir = config$envir,
cache = config$cache,
logger = config$logger
)$spec
testrun(config)
nobuild(config)
config$plan$command[[2]] <-
parse(text = "f(1+ 1 -2 + 2) -1 + 1 #only yourinput changed")
config$spec <- create_drake_spec(
plan = config$plan,
envir = config$envir,
cache = config$cache,
logger = config$logger
)
expect_equal(
sort(outdated_impl(config)),
sort(c(
"drake_target_1",
"combined",
"final",
"yourinput"
))
)
testrun(config)
expect_equal(justbuilt(config), "yourinput")
config$plan$command[[2]] <-
parse(text = "f(1+2) # now downstream should rebuild")
config$spec <- create_drake_spec(
plan = config$plan,
envir = config$envir,
cache = config$cache,
logger = config$logger
)$spec
testrun(config)
expect_equal(
justbuilt(config),
sort(c(
"drake_target_1",
"combined",
"final",
"yourinput"
))
)
testrun(config)
nobuild(config)
# command changed for an intermediate file
config$plan$command[[1]] <-
parse(text = "saveRDS(combined + 1, file_out(\"intermediatefile.rds\"))")
config$spec <- create_drake_spec(
plan = config$plan,
envir = config$envir,
cache = config$cache,
logger = config$logger
)$spec
testrun(config)
expect_equal(
justbuilt(config),
sort(c("drake_target_1", "final"))
)
})
test_with_dir("add a new target", {
plan <- drake_plan(a = as.integer(sqrt(4)))
cache <- storr::storr_environment()
make(plan, cache = cache, session_info = FALSE)
config <- drake_config(plan, cache = cache, session_info = FALSE)
expect_equal(justbuilt(config), "a")
expect_equal(readd(a, cache = cache), 2L)
plan <- rbind(plan, drake_plan(b = as.integer(sqrt(16))))
make(plan, cache = cache, session_info = FALSE)
config <- drake_config(plan, cache = cache, session_info = FALSE)
expect_equal(justbuilt(config), "b")
expect_equal(readd(b, cache = cache), 4L)
})
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.