r - R 允许运算符是复合表达式吗？

Question

在 Harold Abelson 的“计算机程序的结构和解释”中，它使用了 Lisp编程语言，其中一个练习要求您评估以下代码:

(define (a-plus-abs-b a b)
((if (> b 0) + -) a b))

在 R 中执行此操作的一种方法当然是:

APlusAbsB <- function(a, b){
  if(b > 0) a + b else a - b
}

然后我重复了 a s 和 b s。

我的问题是:是否 R允许运算符是复合表达式(例如， if (> b 0) + -) )？例如，有没有办法做类似的事情

APlusAbsB <- function(a, b){  ## this doesn't work
  if(b > 0) "+" else "-" (a, b)    ## gives "+" or "-"
}

Answer 1

尝试

APlusAbsB <- function(a, b){
  (if(b > 0) `+` else `-`)(a, b)
}

这里 if将返回一个函数，然后您使用括号语法调用它。例如

APlusAbsB(1,5)
# [1] 6
APlusAbsB(1,-1)
# [1] 2