如何在R的S4类中转发`[`方法的全部参数至内部对象？

正确实现方法一：通用参数转发（推荐） #

这种方法适配内部槽为一维向量、多维数组等任意结构，能完全转发所有调用参数：

setMethod("[", signature = "Foo", function(x, ...) {
  call <- match.call()
  # 将调用中的x替换为内部的vec槽
  call$x <- x@vec
  eval(call)
})

测试验证：

foo[2]
# [1] 2
foo[-1]
# [1] 2 3
foo[drop = FALSE]
# [1] 1 2 3

正确实现方法二：针对一维向量的简化写法 #

如果确定内部vec始终是一维向量，可以只声明必要参数，避免多余参数传递：

setMethod("[", signature = "Foo", function(x, i, ..., drop = TRUE) {
  x@vec[i, drop = drop, ...]
})

之前的错误原因分析 #

1. ...捕获参数失败：
   [的标准参数（i/j/drop等）不属于可变参数...的范畴，因此list(...)为空，x@vec[...]等价于直接返回整个向量，无法实现子集化。

2. 显式声明j参数引发维度错误：
   一维向量的[方法仅接受单索引参数，传递未使用的j参数时，R会误认为要访问二维结构，从而抛出维度不匹配的错误。

3. match.call调用失败：

   • fun是符号[，do.call需要传入函数对象而非符号；
   • 原始调用中的x是Foo对象而非内部vec槽，直接调用会递归触发[.Foo方法导致错误，必须先将调用中的x替换为x@vec再执行。

内容的提问来源于stack exchange，提问作者Migwell