Data.table: dcast.data.table eval(fun.aggragate) -- 내부 집계 함수 선언으로 함수 내부에서 호출되면 실패

이 경우도 실패하는 것을 보는 것은 흥미 롭습니다.

testdata=data.table(c(1,1, 1, 2, 2), c(1,2,3, 4, 5), c( "a", "a", "b", "a", "b"))
colnames(testdata)=c("ID", "VAL", "CLASS")

  test_dcast_dt <- function(data, aggfunc) {
    data_cast=dcast.data.table(data, "ID ~ CLASS", value.var="VAL", fun.aggregate=aggfunc)
  } 

  custom_sum <- function(x) {
    sum(x)
  }

  res=test_dcast_dt(testdata, custom_sum)

전달된 func의 변수 이름이 항상 "fun.aggregate"인 경우에만 문제 #713이 수정된 것 같습니다.

이 예제는 이전 예제와 대조적으로 작동합니다.

testdata=data.table(c(1,1, 1, 2, 2), c(1,2,3, 4, 5), c( "a", "a", "b", "a", "b"))
colnames(testdata)=c("ID", "VAL", "CLASS")

  test_dcast_dt <- function(data, fun.aggregate) {
    data_cast=dcast.data.table(data, "ID ~ CLASS", value.var="VAL", fun.aggregate=fun.aggregate)
  } 

  custom_sum <- function(x) {
    sum(x)
  }

  res=test_dcast_dt(testdata, custom_sum)

이 버그에 문제가 있다고 생각하지만 동일한 문제인지 확인하고 싶었습니다. dcast를 호출하기 전에 함수 내에서 fun.aggregate를 정의하려고 했습니다. 간단한 예:

wrapper <- function() {
  f <- function(x) list(x)
  dcast(data, y ~ x + b, fun.aggragate = f)
}

특정 sys.call 환경을 대상으로 get()을 사용하여 f를 찾으려고 시도했습니다. 또한 f를 기본 환경에서 new.env()에 첨부하려고 시도했습니다. 그래서 "d0rg0ld가 2015년 10월 2일에 댓글을 달았습니다" 댓글이 현재 가장 좋은 방법입니까?

SO에 대한 관련 질문: R data.table 함수가 이미 지정된 인수를 인식하지 못합니다.