Come posso creare un infisso% tra% operatore?

Question

Mi piacerebbe avere un operatore infisso %between% in R - per verificare se x è tra limite inferiore l e limite superiore u.

Ho creato la seguente semplice funzione, ma non è un'operazione di infisso.

# between function - check to see if x is between l and u 
is.between <- function(x, l, u) { x > l & x < u } 

Il mio obiettivo è quello di sostituire questo con: x %between% c(l, u)

E 'possibile definire nuove operazioni infissa? Se è così, come si fa?

grazie in anticipo

Answer 1

È possibile definire operatori infissi come funzioni:

> `%between%`<-function(x,rng) x>rng[1] & x<rng[2] 
> 1 %between% c(0,3) 
[1] TRUE 
> 1 %between% c(2,3) 
[1] FALSE 

Come sottolineato da @flodel, questo operatore è vettorizzate:

> 1:5 %between% c(1.5,3.5) 
[1] FALSE TRUE TRUE FALSE FALSE 

Answer 2

Questa funzione esiste nel pacchetto data.table (con la leggera differenza che i limiti sono inclusi), implementato come:

between <- function(x,lower,upper,incbounds=TRUE) 
{ 
    if(incbounds) x>=lower & x<=upper 
    else x>lower & x<upper 
} 

"%between%" <- function(x,y) between(x,y[1],y[2],incbounds=TRUE) 

Può essere utilizzato come between(x,lower,upper) o x %between% c(lower, upper)

Answer 3

Per evitare ambiguità, si potrebbe definire due funzioni:

"%><%" <- function(x, rng) x > rng[1] & x < rng[2] 
"%>=<%" <- function(x, rng) x >= rng[1] & x <= rng[2] 
x=1:5 
x %><% c(2,4) 
[1] FALSE FALSE TRUE FALSE FALSE 
x %>=<% c(2,4) 
[1] FALSE TRUE TRUE TRUE FALSE 

O anche aggiungere questi due altri:

"%> =<%"<-function(x,rng) x > rng[1] & x <= rng[2] 
"%>= <%"<-function(x,rng) x >= rng[1] & x < rng[2]