by data.tableの非標準的な評価

Question

の評価がdata.tableで失われています。 LJとLJ2の機能を1つの関数にマージする正しい方法は何ですか？

LJ <- function(dt_x_, dt_y_, by_) 
{ 
    merge(
     dt_x_, 
     dt_y_, 
     by = eval(substitute(by_)), all.x = TRUE, sort = FALSE) 
} 
LJ2 <- function(dt_x_, dt_y_, by_) 
{ 
    merge(
     dt_x_, 
     dt_y_, 
     by = deparse(substitute(by_)), all.x = TRUE, sort = FALSE) 
} 
LJ(
    data.table(A = c(1,2,3)), 
    data.table(A = c(1,2,3), B = c(11,12,13)), 
    "A") 
LJ2(
    data.table(A = c(1,2,3)), 
    data.table(A = c(1,2,3), B = c(11,12,13)), 
    A) 

Answer 1

これは悪い考えです。ユーザーに常に文字値を渡させる。あなたはこれを行うことができます：

LJ3 <- function(dt_x_, dt_y_, by_) 
{ 
    by_ <- gsub('\"', "", deparse(substitute(by_)), fixed = TRUE) 
    dt_y_[dt_x_, on = by_] 
} 

LJ3(
    data.table(A = c(4,1,2,3)), 
    data.table(A = c(1,2,3), B = c(11,12,13)), 
    A) 
# A B 
#1: 4 NA 
#2: 1 11 
#3: 2 12 
#4: 3 13 

LJ3(
    data.table(A = c(4,1,2,3)), 
    data.table(A = c(1,2,3), B = c(11,12,13)), 
    "A") 
# A B 
#1: 4 NA 
#2: 1 11 
#3: 2 12 
#4: 3 13 

この質問はdata.tableとは関係ありません。 merge.data.tableのbyパラメータには、常にonのように文字値が必要です。

編集：上記のあなたは、列の名前を持っている場合は、それらの実際の"で（あなたは、一般的に避けなければならない何かを、あなたfread、いくつかの入力ファイルは、他の人が作成した場合に発生する可能性が）失敗することを指摘し@eddi。そのようなエッジケースを扱うことができる

選択肢は次のようになります。

LJ4 <- function(dt_x_, dt_y_, by_) 
{ 
    by_ <- substitute(by_) 
    if (!is.character(by_)) by_ <- deparse(by_) 
    dt_y_[dt_x_, on = by_] 
}