Nothing
tar_test("run timestamp reporter", {
pipeline <- pipeline_init(list(target_init("x", quote(0))))
for (index in seq_len(2L)) {
local <- local_init(pipeline, reporter = "timestamp")
expect_message(local$run())
}
})
tar_test("run timestamp reporter with a error and saved workspace", {
tar_option_set(workspace_on_error = TRUE)
pipeline <- pipeline_init(
list(
target_init("x", quote(stop(123)))
)
)
local <- local_init(pipeline, reporter = "timestamp")
expect_error(expect_message(local$run()), class = "tar_condition_run")
})
tar_test("run timestamp reporter with a warning", {
pipeline <- pipeline_init(list(target_init("x", quote(warning(123)))))
local <- local_init(pipeline, reporter = "timestamp")
suppressWarnings(
expect_warning(local$run(), class = "tar_condition_run")
)
})
tar_test("run timestamp reporter with a cancellation", {
pipeline <- pipeline_init(
list(target_init("x", quote(targets::tar_cancel())))
)
local <- local_init(pipeline, reporter = "timestamp")
expect_message(local$run())
})
tar_test("validate timestamp reporter", {
expect_silent(reporter_init("timestamp")$validate())
})
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.