
This interface wraps the base setHook()
function to provide a return
value that makes it easy to undo.
set_hooks(hooks, action = "append")remove_hooks(hooks)
a named list of hooks - each hook can either be a function or a list of functions.
"replace"
, "append"
or "prepend"
new1 <- list(before.plot.new = function() print("Plotted!"))
new2 <- list(before.plot.new = function() print("Plotted Again!"))
set_hooks(new1)
set_hooks(new2)
plot(1)
remove_hooks(new1)
plot(1)
remove_hooks(new2)
plot(1)
Run the code above in your browser using DataLab