Nothing
tar_test("tar_resources_crew()", {
out <- tar_resources_crew()
expect_silent(resources_validate(out))
})
tar_test("tar_resources_crew() defaults", {
tar_option_set(
resources = tar_resources(
crew = tar_resources_crew()
)
)
out <- tar_resources_crew()
expect_null(out$controller)
expect_null(out$seconds_timeout)
})
tar_test("tar_resources_crew() non-defaults", {
tar_option_set(
resources = tar_resources(
crew = tar_resources_crew(
controller = "controller_name_x",
seconds_timeout = 0.037
)
)
)
out <- tar_resources_crew()
expect_equal(out$controller, "controller_name_x")
expect_equal(out$seconds_timeout, 0.037)
})
tar_test("tar_resources_crew() scale", {
expect_warning(
tar_resources_crew(scale = TRUE),
class = "tar_condition_deprecate"
)
})
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.