おやすみ蓮君、さよなら可読性

mtcarsのsummary結果を保存したのち、そのままmtcarsでlmしてその結果をsummaryしたい。
%>%を使って書くとこういう感じだが当然動かない。

mtcars %>% summary -> summ %>% lm(formula = mpg ~ wt + cyl, data = .) %>% summary

だがpipeRの最新版（0.4.3）なら実現できるッ！蓮君素敵！

# pipeR 0.4.3
devtools::install_github("pipeR","renkun-ken")
library(pipeR)
mtcars %>>%
  (~summ = summary(.)) %>>%  # オブジェクトをその後のchainで使いたくないときは~をつける
  (lm_mtcars = lm(formula = mpg ~ wt + cyl, data = .)) %>>%  #  使いたい時は~をつけない
  summary

さよなら可読性！！！！