Wrap a stageRunnerNode callable with another callable.
stageRunnerNode_around(other_node)
other_node | stagerunner or stageRunnerNode. |
---|
TRUE
or FALSE
according as the wrapping was
successful.
not_run({ node1 <- stageRunnerNode(function(e) print(2)) node2 <- stageRunnerNode(function(e) { print(1); yield(); print(3); }) node1$around(node2) node1$run() # Will print 1 2 3 # Notice the provided "yield" keyword, which allows calling the # node that is being wrapped. })