如何定义一个在括号外接受参数的函数，如 names()

Question

今天我遇到了一个问题。通常，R 中的每个函数都在其所属的括号内接受参数，例如

# function definition
f <- function(arg){print(arg)}
# function call
f(arg = 3)

但例如，内置函数names() 的工作方式不同。你可以这样称呼它：

x = 3
names(x) <- "aNumber"

这似乎很特殊，因为值 "aNumber" 没有作为常规参数分配给函数 names()，而是分配给函数本身。所以我的问题是如何定义这种类型的函数。

干杯，

菲利普

Answer 1

您可以制作一个用户定义的中缀运算符，例如：

`%x%` <- function(a, b) {a * b}
2 %x% 3
#[1] 6

一个用户定义的替换/赋值函数比如：

`x<-` <- function(x, value) {x * value}
y  <- 2
x(y) <- 3
y
#[1] 6

另请参阅：3.4.4 Subset assignment 或 6.8 Function forms。