tar_hook_before {tarchetypes} | R Documentation |
Hook to prepend code
Description
Prepend R code to the commands of multiple targets.
Usage
tar_hook_before(targets, hook, names = NULL, set_deps = TRUE)
Arguments
targets |
A list of target objects. The input target list can be arbitrarily nested, but it must consist entirely of target objects. In addition, the return value is a simple list where each element is a target object. All hook functions remove the nested structure of the input target list. |
hook |
R code to insert. When you supply code to this argument,
the code is quoted (not evaluated) so there is no need
to wrap it in |
names |
Name of targets in the target list
to apply the hook. Supplied with |
set_deps |
Logical of length 1, whether to refresh the dependencies
of each modified target by scanning the newly generated
target commands for dependencies. If |
Value
A flattened list of target objects with the hooks applied. Even if the input target list had a nested structure, the return value is a simple list where each element is a target object. All hook functions remove the nested structure of the input target list.
Target objects
Most tarchetypes
functions are target factories,
which means they return target objects
or lists of target objects.
Target objects represent skippable steps of the analysis pipeline
as described at https://books.ropensci.org/targets/.
Please read the walkthrough at
https://books.ropensci.org/targets/walkthrough.html
to understand the role of target objects in analysis pipelines.
For developers, https://wlandau.github.io/targetopia/contributing.html#target-factories explains target factories (functions like this one which generate targets) and the design specification at https://books.ropensci.org/targets-design/ details the structure and composition of target objects.
See Also
Other hooks:
tar_hook_inner()
,
tar_hook_outer()
Examples
if (identical(Sys.getenv("TAR_LONG_EXAMPLES"), "true")) {
targets::tar_dir({ # tar_dir() runs code from a temporary directory.
targets::tar_script({
targets <- list(
# Nested target lists work with hooks.
list(
targets::tar_target(x1, task1()),
targets::tar_target(x2, task2(x1))
),
targets::tar_target(x3, task3(x2)),
targets::tar_target(y1, task4(x3))
)
tarchetypes::tar_hook_before(
targets = targets,
hook = print("Running hook."),
names = starts_with("x")
)
})
targets::tar_manifest(fields = command)
})
}