Nothing
tar_test("gcp_file packages", {
target <- tar_target(
x,
"x_value",
format = "file",
repository = "gcp"
)
expect_equal(
sort(store_get_packages(target$store)),
c("googleCloudStorageR")
)
})
tar_test("inherits from tar_external", {
store <- tar_target(
x,
"x_value",
format = "file",
repository = "gcp"
)$store
expect_true(inherits(store, "tar_external"))
})
tar_test("store_row_path()", {
store <- tar_target(
x,
"x_value",
format = "file",
repository = "gcp"
)$store
store$file$path <- "path"
expect_equal(store_row_path(store), "path")
})
tar_test("store_path_from_record()", {
store <- tar_target(
x,
"x_value",
format = "file",
repository = "gcp"
)$store
record <- record_init(
path = "path",
format = "file",
repository = "gcp"
)
expect_equal(store_path_from_record(store, record), "path")
})
tar_test("validate gcp file", {
skip_if_not_installed("googleCloudStorageR")
tar_script(
list(
tar_target(
x,
"x_value",
format = "file",
repository = "gcp"
)
)
)
expect_silent(tar_validate(callr_function = NULL))
})
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.