r - 赋值运算符的重载与长度函数的组合如何工作？

Question

length() 的变异实现是如何工作的？

示例:给定一个向量 v，如何将长度设置为 12？

length(v) <- 12

我能否创建自己的函数以相同的方式重载运算符？

示例:将所有其他元素设置为 7

everyOther(v) <- 7

Answer 1

那些赋值函数就是函数。它们可以写成以下形式(注意反引号 - 必须使用它们)，其中 fname区分函数名。

`fname<-` <- function(x, value) { ... }

所以你的 everyOther赋值函数可以写成

`everyOther<-` <- function(x, value) {
    x[c(FALSE, TRUE)] <- value
    x
}

我们可以像使用它一样使用它 length(x) <- value

v <- 1:20
everyOther(v) <- 7
v
# [1]  1  7  3  7  5  7  7  7  9  7 11  7 13  7 15  7 17  7 19  7