赋值运算符的重载与长度函数的组合是如何工作的?

那些赋值函数就是这些函数。它们可以用以下形式书写(请注意背面标记-必须使用它们),其中 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