`%test%` <- function(x, y)
{
  x + y
}
1 %test% 2

## [1] 3

参考 rebus.base