वर्तमान में अज्ञात रिकर्सिव फ़ंक्शन

Question

लिखने के लिए फ़ंक्शन कहा जाता है, मैं रिकर्सिव लागू करने के लिए फ़ंक्शन के भीतर वर्तमान फ़ंक्शन कैसे प्राप्त कर सकता हूं?

myfun <- function(x) { 
    if(is.list(x)){ 
    lapply(x, myfun) 
    } else { 
    length(x) 
    } 
} 

मैं इसे गुमनाम बजाय, हालांकि मैं नहीं जानता कि कैसे lapply बताने के लिए वर्तमान समारोह का उपयोग करने के जब यह कोई नाम नहीं है बनाने के लिए चाहते हैं: यहाँ एक छोटी सी उदाहरण है। मैं Recall कोशिश की, लेकिन वह काम नहीं करता:

(function(x) { 
    if(is.list(x)){ 
    lapply(x, Recall) 
    } else { 
    length(x) 
    } 
})(cars) 

इसके अलावा match.call()[[1]] गुमनाम कार्यों के लिए मदद नहीं करता है।

Answer 1

यह एक सूची के वर्ग रिकर्सिवली गणना करने के लिए उदाहरण के लिए sys.function(0) है,:

(function(x) { 
    if(length(x)>2){ 
    lapply(x,sys.function(0)) 
    } else { 
    x^2 
    } 
})(list(1,2,3)) 

[[1]] 
[1] 1 

[[2]] 
[1] 4 

[[3]] 
[1] 9 

Answer 2

आप के लिए क्या देख रहे हैं मुझे लगता है कि है, sys.function:

> (function() print(sys.function(1)))() 
function() print(sys.function(1)) 

Recall वास्तव में कहते हैं:

एक और तरीका है गुमनाम पुनरावर्ती कार्यों लिखने के लिए local।

local(myfun <- function(...) { ... myfun(...) ... }) 

और यह बाहर से परिभाषित नहीं है:

विचार है कि आप स्थानीय रूप से नाम निर्धारित है।