小编dot*_*mba的帖子

我正在尝试扩展data.table以加速/标准化复杂调查设计的分析。为此，我试图[.data.table在我拦截调用的位置上添加一个轻层，j并在某些情况下在需要特殊调查类型命令时替换操作（例如meanto median）（或在特殊情况下使用正常功能不需要利用data.table的 geforce 类型优化）。

基于我对 s3 调度的部分理解，NextMethod这里应该是合适的函数，但它似乎j作为符号传递j（例如，a[, j]而不是a[, median(v1)]它与 data.table 的 NSE 奇怪地交互。我已经尝试过使用 do.call 的版本，但不能不要通过一些无限递归的废话（do.call('[', ...)将无休止地发送[.dtsurvey）

有没有一种干净的方法来调整参数并将其传递给data.table？在下面的例子玩具，我想有调用返回median列的v1，即使初始操作mean。

library('data.table')

a = data.table(v1 = 1:10)
b = copy(a)

"[.dtsurvey" <- function(x, i, j, by, ...){
  
  j = substitute(j)
  print(j)
  if(j[[1]] == 'mean') j[[1]] = quote(median)
  print(j)

  NextMethod(`[`, …