learn_pipe

wrapr 点管道使用

library(wrapr)
cos(exp(sin(4)))

## [1] 0.8919465

4 %.>% sin(.) %.>% exp(.) %.>% cos(.)

## [1] 0.8919465

1:4 %.>% .^2 

## [1]  1  4  9 16

1:4 %.>% function(x) { x + 1 }

## [1] 2 3 4 5

非常方便矩阵运算