Nothing
tar_test("NULL name outside target", {
expect_error(tar_timestamp(), class = "tar_condition_validate")
})
tar_test("empty timestamp", {
out <- tar_timestamp(y)
expect_true(inherits(out, "POSIXct"))
expect_identical(as.numeric(out), as.numeric(file_time_reference))
})
tar_test("empty file", {
tar_script(tar_target(y, 1))
tar_make(callr_function = NULL)
unlink(path_objects(path_store_default(), "y"))
out <- tar_timestamp(y)
expect_true(inherits(out, "POSIXct"))
expect_true(as.numeric(out) > as.numeric(file_time_reference))
})
tar_test("empty meta", {
tar_script(tar_target(y, 1))
tar_make(callr_function = NULL)
unlink(path_meta(path_store_default()))
out <- tar_timestamp(y)
expect_true(inherits(out, "POSIXct"))
expect_identical(as.numeric(out), as.numeric(file_time_reference))
})
tar_test("good timestamp outside target", {
tar_script(tar_target(y, 1))
tar_make(callr_function = NULL)
out <- tar_timestamp(y)
expect_true(inherits(out, "POSIXct"))
expect_false(any(as.numeric(out) == as.numeric(file_time_reference)))
})
tar_test("one timestamp for two files", {
tar_script(
tar_target(
y, {
file.create(c("x", "y"))
c("x", "y")
}
)
)
tar_make(callr_function = NULL)
expect_equal(tar_read(y), c("x", "y"))
expect_true(all(file.exists(c("x", "y"))))
out <- tar_timestamp(y)
expect_true(inherits(out, "POSIXct"))
expect_false(any(as.numeric(out) == as.numeric(file_time_reference)))
expect_length(out, 1L)
})
tar_test("use timestamp in a target", {
tar_script(
list(
tar_target(
y, {
tar_cancel(Sys.time() - tar_timestamp() < 360)
tar_timestamp()
},
cue = tar_cue(mode = "always")
)
)
)
tar_make(callr_function = NULL)
out <- tar_read(y)
expect_true(inherits(out, "POSIXct"))
expect_identical(as.numeric(out), as.numeric(file_time_reference))
progress <- tar_progress()
expect_equal(progress$progress[progress$name == "y"], "completed")
tar_make(callr_function = NULL)
progress <- tar_progress()
expect_equal(progress$progress[progress$name == "y"], "canceled")
})
tar_test("custom script and store args", {
skip_cran()
expect_equal(tar_config_get("script"), path_script_default())
expect_equal(tar_config_get("store"), path_store_default())
tar_script({
list(
tar_target(w, letters)
)
}, script = "example/script.R")
tar_make(
callr_function = NULL,
script = "example/script.R",
store = "example/store"
)
out <- tar_timestamp(w, store = "example/store")
expect_true(inherits(out, "POSIXct"))
expect_false(file.exists("_targets.yaml"))
expect_equal(tar_config_get("script"), path_script_default())
expect_equal(tar_config_get("store"), path_store_default())
expect_false(file.exists(path_script_default()))
expect_false(file.exists(path_store_default()))
expect_true(file.exists("example/script.R"))
expect_true(file.exists("example/store"))
expect_true(file.exists("example/store/meta/meta"))
expect_true(file.exists("example/store/objects/w"))
tar_config_set(script = "x")
expect_equal(tar_config_get("script"), "x")
expect_true(file.exists("_targets.yaml"))
})
tar_test("deprecated arguments", {
x <- "tar_condition_deprecate"
expect_warning(tar_timestamp(x, format = "123"), class = x)
expect_warning(tar_timestamp(x, tz = "UTC"), class = x)
expect_warning(tar_timestamp(x, parse = TRUE), class = x)
})
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.