0

我正在尝试定义一个中缀函数 %~% ，它在左侧接受一个字符，在右侧接受一个表达式并返回一个连接的公式对象。所以我要"y" %~% x + z返回什么y ~ x + z。

但是，我的函数（如下）未能将+用作符号公式运算符，而是默认为算术运算符。显然，中~缀函数实现了这一点，但它是一个原始函数，所以我（我想我）不能刷代码，我不知道如何将它合并到函数定义中以实现我想要的结果。

`%~%` <- function(x, y) {

y <- deparse(substitute(y))
formula(paste(x, "~", y) 

}

一种解决方案是~在调用函数时使用运算符：

"y" %~%~ x + z

但我想知道是否有一种方法可以防止+在函数定义中评估算术运算符，以便我可以简单地使用%~%.

4

1 回答 1

1

顺序或运算符优先级在 R 中是固定的，一些实验（或检查?Syntax帮助页面）表明特殊运算符比+and-运算符绑定更紧密：

`%~%` = function(left,right){
    cat("left: ",as.character(substitute(left)), "  right: ", as.character(substitute(right)),'\n')
    return(100)
}

产生：

> 2 %~% 1 + 3
left:  2   right:  1 
[1] 103
> 2 %~% (1 + 3)
left:  2   right:  ( 1 + 3 
[1] 100

或者更清楚一点：

zz <- function(x){
    x <- substitute(x)
    cat(sprintf("%s [%s] %s\n",
                             as.character(deparse(x[[2]])),
                             as.character(deparse(x[[1]])),
                             as.character(deparse(x[[3]]))))}

产生：

> zz(1 + 2)
1 [+] 2
> zz(1 + 2:3)
1 [+] 2:3
> zz(1 + 2%foo%3)
1 [+] 2 %foo% 3
> zz(2%foo%3+1)
2 %foo% 3 [+] 1

另请注意，公式会捕获创建它们的环境，因此如果您不注意将正确的环境绑定到公式对象，则在辅助函数中创建公式可能会产生一些意外且难以调试的后果。

于 2017-06-01T21:21:03.117 回答