3

Como funciona a ordem das operações no R? E como posso alterá-las?

Por exemplo, quando faço 1 + 2^2 no R, ele sabe que primeiro é necessário avaliar o 2^2 para depois somar o resultado com o 1.

Neste caso, claro que não faz sentido querer alterar esta ordem. Mas, o que eu gostaria de fazer é algo como o inverso do operador %>% do dplyrque funcione da seguinte forma:

exp %<% 1 + 1
# 7.389056 = exp(2)

Assim, seria necessário que o 1+1fosse avaliado antes do %<%, será que isso é possível?

Eu tentei isso:

"%<%" <- function(l,r) return(l(r))
exp %<% 1 + 1
# 3.718282

Mas isso é a mesma coisa que:

exp(1) + 1
# 3.718282
11
  • Você não quer fazer exp %<% (1+1), certo? 3/10/2014 às 12:40
  • exato, não queria usar os parenteses 3/10/2014 às 12:42
  • Não sei se tem como fazer isso, até porque seria uma confusão se isso fosse algo personalizável, dificultando bastante o entendimento/leitura de códigos, além de fazer com que outros parassem de funcionar como esperado.
    – Rcoster
    3/10/2014 às 13:15
  • 1
    @JulioTrecenti Sim, sem problemas, o Daniel perguntou duas coisas "Como funciona a ordem das operações no R? E como posso alterá-las?" você pode explicar a ordem das operações, então estará respondendo a uma parte da pergunta, e quanto a segunda parte não tem problema falar que não sabe. 3/10/2014 às 18:05
  • 1
    @CarlosCinelli +1 pela dica. Me convenceu, obrigado. 3/10/2014 às 18:20

1 Resposta 1

2

Vou reescrever parte dos meus comentários como resposta à pergunta

Como funciona a ordem das operações no R?

@DanielFalbel, o que você disse tem a ver com o conceito de "precedência" e está definido em ?Syntax, que mostra a precedência de todos os operadores do R. Abaixo copio o texto do help do R, mostrando a hierarquia dos operadores (o primeiro é o que tem maior precedência):

:: :::  access variables in a namespace
$ @ component / slot extraction
[ [[    indexing
^   exponentiation (right to left)
- + unary minus and plus
:   sequence operator
%any%   special operators (including %% and %/%)
* / multiply, divide
+ - (binary) add, subtract
< > <= >= == != ordering and comparison
!   negation
& &&    and
| ||    or
~   as in formulae
-> ->>  rightwards assignment
<- <<-  assignment (right to left)
=   assignment (right to left)
?   help (unary and binary)

Note que %any% (ou seja, qualquer operador definido com % %) é um deles. Ou seja, ao definir um operador %<% ele tem precedência maior que +, mas menor que ^ (note que no seu exemplo exp %<% 2 ^ 2 dá o resultado que você queria).

O problema (problemão) é tentar mudar a precedência da sua função. Uma solução trivial seria utilizar parênteses,

exp %<% (1+1)

mas pelo que disse você queria evitá-los.

Dando uma olhada nas definições dos operadores, eu acho que se for possível essa tarefa pode ser bastante difícil (precisará provavelmente definir classes que trabalhem ao lado de operadores primitivos explicitamente), mas posso estar errado. Veja ?groupGeneric e ?S4groupGeneric para alguns detalhes sobre como os operadores primitivos são implementados.

3
  • "ao definir um operador %<% ele tem precedência menor que +, mas maior que ^ " seria o contrário, o %<% tem precedência maior que + (binário, o de soma) e menor que ^. 3/10/2014 às 18:23
  • @CarlosCinelli corrigido. 3/10/2014 às 18:24
  • muito legal Julio! realmente parece ser complicado tentar mudar essa ordem... talvez seja possível fazer alguma gambiarra usando non-standard evaluation e sys.call 3/10/2014 às 19:17

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .