"親切なおじさんありがとう" %->% res
先日のワガママな悩みを親切なおじさんが解決してくれました。素敵ですね!
https://github.com/smbache/magrittr/pull/23
いずれ取り込まれるとは思いますがすぐに使いたい私は以下のようにしたのでした。
library(devtools) install_github("teramonagi/magrittr@work") `%->%` <- magrittr:::pipe(memorize=TRUE) library(ggplot2) library(dplyr) library(magrittr) iris %>% group_by(Species) %>% summarise(mn=mean(Sepal.Length)) %->% res %>% qplot(data=.,x=Species,y=mn,geom="bar",stat="identity")
追記
exportされたようなので下記だけで使えるようになったようです。ありがとう親切なおじさん!!!
library(devtools) install_github("teramonagi/magrittr@work")