Nothing
# Should be silent.
tar_destroy()
for (index in seq_len(2L)) {
local_init(pipeline_map(), reporter = "silent")$run()
}
# Should be silent except for the error message.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(stop(123)))))
local <- local_init(pipeline, reporter = "silent")$run()
# Should be silent except for the error message.
tar_destroy()
tar_option_set(workspace_on_error = TRUE)
pipeline <- pipeline_init(
list(target_init("x", quote(stop(123))))
)
local <- local_init(pipeline, reporter = "silent")$run()
tar_option_set(workspace_on_error = FALSE)
# Should be silent.
tar_destroy()
for (index in seq_len(2L)) {
x <- target_init("x", quote(targets::tar_cancel()))
pipeline <- pipeline_init(list(x))
local <- local_init(pipeline, reporter = "silent")$run()
}
# Should show one dispatched and one completed message per target.
tar_destroy()
local_init(pipeline_map(), reporter = "verbose")$run()
# Should show one skip message per target.
local_init(pipeline_map(), reporter = "verbose")$run()
# Should show a failure message and an error message.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(stop(123)))))
local <- local_init(pipeline, reporter = "verbose")$run()
# Should show a regular warning and a meta-warning with a tip about tar_meta().
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(warning(123)))))
local <- local_init(pipeline, reporter = "verbose")$run()
# Should show error message but not save workspace.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(stop(123)))))
local <- local_init(pipeline, reporter = "verbose")$run()
expect_equal(tar_workspaces(), character(0))
# Should show error message and save workspace.
tar_destroy()
tar_option_set(workspace_on_error = TRUE)
pipeline <- pipeline_init(
list(target_init("x", quote(stop(123))))
)
local <- local_init(pipeline, reporter = "verbose")$run()
expect_equal(tar_workspaces(), "x")
tar_option_set(workspace_on_error = FALSE)
# Warnings are relayed immediately if the warn option is 1.
tar_destroy()
pipeline <- pipeline_init(
list(
target_init("x", quote({
warning("abc")
Sys.sleep(2)
})),
target_init("y", quote(x))
)
)
options(warn = 1)
local <- local_init(pipeline, reporter = "verbose")$run()
# Warnings are delayed if the warn option is 0.
tar_destroy()
pipeline <- pipeline_init(
list(
target_init("x", quote({
warning("abc")
Sys.sleep(2)
})),
target_init("y", quote(x))
)
)
options(warn = 0)
local <- local_init(pipeline, reporter = "verbose")$run()
# Should show a cancellation message.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(targets::tar_cancel()))))
local <- local_init(pipeline, reporter = "verbose")$run()
expect_equal(tar_progress()$progress, "canceled")
# Should show one start and one completed timestamped message per target.
tar_destroy()
local_init(pipeline_map(), reporter = "timestamp")$run()
# Should show one timestamped skip message per target.
local_init(pipeline_map(), reporter = "timestamp")$run()
# Should show a timestamped failure message and an error message.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(stop(123)))))
local <- local_init(pipeline, reporter = "timestamp")$run()
expect_equal(tar_progress()$progress, "errored")
# Should show a timestamped failure message and an error message
# and save workspace.
tar_destroy()
tar_option_set(workspace_on_error = TRUE)
pipeline <- pipeline_init(
list(target_init("x", quote(stop(123))))
)
local <- local_init(pipeline, reporter = "timestamp")$run()
expect_equal(tar_progress()$progress, "errored")
tar_option_set(workspace_on_error = FALSE)
# Should show a timestamped message, a warning,
# and a meta-warning w/ tip about tar_meta().
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(warning(123)))))
local <- local_init(pipeline, reporter = "timestamp")$run()
# Should show a timestamped cancellation message.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(targets::tar_cancel()))))
local <- local_init(pipeline, reporter = "timestamp")$run()
expect_equal(tar_progress()$progress, "canceled")
# Should show counts per target status category
# and show all completed at the end.
tar_destroy()
local_init(pipeline_map(), reporter = "summary")$run()
# Should see a dispatched target for 2 seconds.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(Sys.sleep(2)))))
local <- local_init(pipeline, reporter = "summary")$run()
# Should show one errored target.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(stop(123)))))
local <- local_init(pipeline, reporter = "summary")$run()
# Should show one warned target.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(warning(123)))))
local_init(pipeline, reporter = "summary")$run()
# Should show one canceled target.
tar_destroy()
pipeline <- pipeline_init(list(target_init("x", quote(targets::tar_cancel()))))
local <- local_init(pipeline, reporter = "summary")$run()
# Should show same number check as outdated.
tar_destroy()
out <- outdated_init(pipeline_map(), reporter = "forecast")
tmp <- out$run()
# Should show build messages for all targets.
tar_destroy()
local_init(pipeline_map(), reporter = "verbose_positives")$run()
# Should skip skipped messages.
local_init(pipeline_map(), reporter = "verbose_positives")$run()
# Should show timestamped build messages for all targets.
tar_destroy()
local_init(pipeline_map(), reporter = "timestamp_positives")$run()
# Should skip skipped messages.
local_init(pipeline_map(), reporter = "timestamp_positives")$run()
# Should show more checked and no outdated.
local <- local_init(pipeline_map(), reporter = "silent")
local$run()
out <- outdated_init(pipeline_map(), reporter = "forecast")
tmp <- out$run()
# Should show more checked than outdated.
data1 <- readRDS("_targets/objects/data1")
data1 <- data1 + max(data1) + 10
saveRDS(data1, "_targets/objects/data1")
out <- outdated_init(pipeline_map(), reporter = "forecast")
tmp <- out$run()
# tar_outdated() uses forecast reporter.
tar_script(
list(
tar_target(y1, seq_len(1000)),
tar_target(y2, y1, pattern = map(y1))
)
)
tar_make()
tar_outdated(reporter = "forecast")
# tar_visnetwork() uses forecast reporter.
tar_visnetwork(reporter = "forecast")
tar_destroy()
unlink("_targets.R")
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.