気になるあの娘がplotするとヌマクローが出るようにしたい

気になるあの娘がplotするたびにヌマクローが出るようにしたい。
以前ヌマクローの話があった。
http://d.hatena.ne.jp/EulerDijkstra/20141205
そしてフックの話があった。
http://blog.recyclebin.jp/archives/4382#more-4382
学んだことはすぐ活かしていきたいので沼フックを実装した。

devtools::install_github("dichika/yeah")
library(yeah)
setNumacraw()

plotすると確実にヌマクローがついてくる。

plot(iris[,1:2])

解除したい時はunsetNumacrawを使うと良い。

unsetNumacraw()

あとはこれを気になるあの娘の.Rprofileに書いてやればplotするたびにヌマクロー。
なお、ggplot2には対応していない。
実装は以下のような形。

setNumacraw <- function(){
  .LastuserHook <<- getHook("plot.new")
  setHook("plot.new",numacraw,"append")
}
unsetNumacraw <- function(){
  setHook("plot.new",.LastuserHook,"replace")
}

enjoy!!!