Нестандартная оценка in in data.table

Question

Я потерян при оценке by в data.table. Что будет правильным способом объединить функции LJ и LJ2 в одну функцию?

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. Параметр by в merge.data.table всегда ожидает значение символа, как и on.

Edit: @eddi указывает на то, что выше, будет ошибкой, если имена столбцов с фактическим " в них (то, что вы должны избегать в целом, но может случиться, если вы fread некоторые входные файлы, подготовленные другими).

Альтернативы, которая может обрабатывать такие крайние случаи будет:

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