set_hooks {evaluate} | R Documentation |
This wraps the base setHook
function to provide a return
value that makes it easy to undo.
set_hooks(hooks, action = "append")
hooks |
a named list of hooks - each hook can either be a function or a list of functions. |
action |
|
new <- list(before.plot.new = function() print("Plotted!")) hooks <- set_hooks(new) plot(1) set_hooks(hooks, "replace") plot(1)