• Já vimos diversos operadores:
  • Matemáticos
  • Lógicos
  • Booleanos

• Um operador é uma função
• Diferença entre unário e binário:
  • unário: 1 operando
  • binário: 2 operandos

• Sintaxe:

lhs %>% rhs # Pipe do pacote 'magrittr'
lhs |> rhs  # Pipe nativo do pacote 'base'

# Como operador unario
+2 # operador operando1

## [1] 2

# Como operador binario
2 + 5 # operando1 operador operando2

## [1] 7

# Saber se um numero esta em um vetor
1 %in% 1:3

## [1] TRUE

# Como eh o codigo interno de '%in%'
`%in%`

## function (x, table) 
## match(x, table, nomatch = 0L) > 0L
## <bytecode: 0x0000000006aff170>
## <environment: namespace:base>

# Primeira forma
2 + 5

## [1] 7

# Segunda forma
`+`(e1 = 2, e2 = 5)

## [1] 7

# Nosso operador pipe '%>>%'
`%>>%` <- function(a, b) {
  aux <- as.character(substitute(b))
  exec <- call(aux, a)
  eval(exec)
}

1:10 %>>% mean()

## [1] 5.5