# NOT RUN {
test_with_dir("Quarantine side effects.", {
# Test out the message sink hook on its own.
try(
message_sink_hook({
cat(1234)
stop(5678)
}),
silent = FALSE
)
# Create a new workflow plan.
x <- drake_plan(loud = cat(1234), bad = stop(5678))
# Run the project. All messages should be suppressed.
try(make(x, hook = message_sink_hook), silent = FALSE)
})
# }
Run the code above in your browser using DataLab