Nothing
tar_test("tar_debug_instructions()", {
on.exit(tar_runtime$target <- NULL)
targets <- list(
tar_target(a, g(a)),
tar_target(a, b),
tar_target(a, NULL)
)
for (target in targets) {
tar_runtime$target <- target
target$command$expr <- as.expression(
list(
instructions = quote(targets::tar_debug_instructions()),
browser = quote(browser()),
expr = target$command$expr
)
)
suppressMessages(expect_message(tar_debug_instructions()))
}
})
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.