How to supply (logical) operators as arguments to function

Question

Is it possible to supply logical (or arithmetic) operators as arguments to R functions. Check this SO question that share the theme.

f1 <- function(a, b) a>b

Then

> f1(1,2)
[1] FALSE

How can I implement an operator that allows me to for instance change the function test, e.g.

f2 <- function(a, b, operator = c('<', '>', '==')) { ... }

Then I would like

> f2(1, 2, '<')
[1] TRUE

Answer 1

In R, all operators are functions. So, you only need to get the operator function and call it.

f2 <- function(a, b, operator) getFunction(operator)(a, b)
f2(1, 2, '<')
#[1] TRUE