Pipe Functions

Libraries

library(magrittr)

Starting Simple

2 %>% +2

## [1] 4

c(0,1,2) %>% +2

## [1] 2 3 4

c(-2,-1,0,1,2) %>% +2

## [1] 0 1 2 3 4

5*3

## [1] 15

c(-2,-1,0,1,2) %>% {.}*3

## [1] -6 -3  0  3  6

c(-2,-1,0,1,2)*3

## [1] -6 -3  0  3  6

c(-2,-1,0,1,2) %>% sum()

## [1] 0

c(-2,-1,0,1,2,18) %>% mean()

## [1] 3

alex <- function(x){
  sum(x)/length(x)
}

c(-2,-1,0,1,2,18) %>% alex()

## [1] 3

alex_is_crazy <- function(x){
  sum(x/length(x))
}

c(-2,-1,0,1,2,18) %>% alex_is_crazy()

## [1] 3