O @Ailton está correto quando diz
operador é um caso particular de fábrica.
Mas vou ilustrar melhor essa idéia. Há fábricas de funções que podem ser de diversos tipos, vou mostrar fábricas que são do tipo operador e fábricas que não o são.
Fábricas - o caso geral
A motivação de uma fábrica de funções é fazer uma metafunção, ou seja, uma função que cria outras funções. Com ela somos capazes de abstrair o processo de criação de funções semelhantes.
Um ótimo exemplo de fábricas dentro do r são as funções color*
do pacote leaflet. Essa funções retornam funções que mapeiam valor em cores.
verdes <- leaflet::colorNumeric("Greens", c(0, 4))
args(verdes)
# function (x)
# NULL
A fábrica nos permite criar uma paleta de cores de forma muito semelhante para o vermelho, por exemplo.
vermelhos <- leaflet::colorNumeric("Reds", c(0,4))
verdes(2)
# [1] "#74C476"
vermelhos(2)
# [1] "#FB6A4A"
Veja, contudo, que a definição geral de fábrica até agora nos permite incluir nela quaisquer funções que retornem uma função, sem incluir restrições ou casos especiais. a colorNumeric
, por exemplo, usa textos e números para criar sua função.
Operador funcional - o caso específico
É possível pensarmos num caso específico de fábrica. Um tipo que recebe funções para construir a função retornada. Essa ideia nos permite criar abstrações para pensarmos sobre como modificar as funções recebidas como argumentos.
Um operador funcional não precisa necessariamente operar apenas funções, ele pode receber argumentos de outros tipos também. É necessário, contudo, que receba ao menos uma função dentro seus argumentos.
No capítulo do Hadley Wickham citado ele elenca quatro tipos de operadores:
- De comportamento
- De saída (output)
- De entrada (input)
- De combinação
Um exemplo seria criar um próprio pipe
.
pipe <- function(...) {
dots <- list(...)
function(x) {
for (i in seq_along(dots)) {
x <- dots[[i]](x)
}
x
}
}
soma_raizes <- pipe(sqrt, sum)
soma_raizes(c(1, 4, 9))
# [1] 6
Bons exemplos de operadores funcionais no tidyverse são purrr::safely()
e purrr::quietly()
.