Set hooks.
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)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.