Data.table: dcast.data.table eval(fun.aggragate) - आंतरिक एकत्रीकरण फ़ंक्शन घोषणा के साथ फ़ंक्शन के अंदर कॉल किए जाने पर विफल हो जाता है

को निर्मित 2 अक्तू॰ 2015 · 4टिप्पणियाँ · स्रोत: Rdatatable/data.table

#713 अंक का जिक्र करते हुए मुझे लगता है कि मुझे अभी एक संबंधित बग मिला है।

मेरी मशीन पर dcast.data.table को कॉल करने वाला फ़ंक्शन _within_ एक एग्रीगेशन फ़ंक्शन घोषित करना और पास करना विफल रहता है

आर संस्करण 3.2.2 (2015-08-14)
प्लेटफार्म: x86_64-Apple-darwin13.4.0 (64-बिट)
के तहत चल रहा है: ओएस एक्स 10.10.2 (योसेमाइट)
डेटा.टेबल_1.9.6

यहाँ एक उदाहरण है:

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.data.table within function with internally declared aggregate fun -> FAILS

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

  res2=test_dcast_dt2(testdata)

bug

स्रोत

d0rg0ld

👍2

सबसे उपयोगी टिप्पणी

मुझे ऐसा लगता है कि मुद्दा #713 केवल तभी तय किया गया था जब पारित func के लिए परिवर्तनीय नाम हमेशा "fun.aggregate" होता है:

यह उदाहरण पिछले एक के विपरीत काम करता है:

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)

d0rg0ld 2 अक्तू॰ 2015

👍2

सभी 4 टिप्पणियाँ

यह देखना दिलचस्प है कि यह मामला भी विफल रहता है:

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)

d0rg0ld 2 अक्तू॰ 2015

यह उदाहरण पिछले एक के विपरीत काम करता है:

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)

d0rg0ld 2 अक्तू॰ 2015

👍2

मुझे लगता है कि मुझे इस बग के साथ कोई समस्या है, लेकिन मैं यह सुनिश्चित करना चाहता था कि यह वही मुद्दा था। मैं 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 ने 2 अक्टूबर, 2015 को टिप्पणी की" टिप्पणी अभी भी वर्तमान में सबसे अच्छा तरीका है?

ProfFancyPants 26 जुल॰ 2017

SO पर संबंधित प्रश्न: R data.table फ़ंक्शन पहले से निर्दिष्ट तर्क को नहीं पहचानता है

UweBlock 28 जुल॰ 2018

👍1

क्या यह पृष्ठ उपयोगी था?

0 / 5 - 0 रेटिंग्स

Data.table: dcast.data.table eval(fun.aggragate) - आंतरिक एकत्रीकरण फ़ंक्शन घोषणा के साथ फ़ंक्शन के अंदर कॉल किए जाने पर विफल हो जाता है

सबसे उपयोगी टिप्पणी

सभी 4 टिप्पणियाँ

संबंधित मुद्दों