r - 引数を渡さずに「j」の関数のdata.table列にアクセスする方法は?

Question

jデータ テーブルで使用できる関数を作成したいと思います。列に明示的に渡す必要がないことを願っています (私は怠け者です)。

以下は動作しませんError in test(x) : object 'x' not found

test <- function(x=NULL){
    list(z=if (is.null(x)) evalq(x, envir=parent.frame()) else x)
}

a <- data.table(x=1:2, y=1:2)

a[, test(x)] // works well
a[, test()]  // error

もしそうなら、私はa[, test(x)]得る

> a[, test(x)]
   z
1: 1
2: 2

a[, test()]私は私に同じことを願っています。