वर्तमान कार्यक्षेत्र में सभी कार्यों को ढूंढना

Question

मैं अपने वर्तमान कार्यक्षेत्र में सभी कार्यों को ढूंढना चाहता हूं और उस उद्देश्य के लिए is.function का उपयोग करने के बारे में सोचा।

"समस्या" है कि is.function एक सच्चे आर वस्तु, नहीं चरित्र स्ट्रिंग नाम एक वस्तु का उम्मीद है।

यह मेरा समाधान है, लेकिन eval(substitute(...)) का उपयोग थोड़ा सा लगता है। किसी भी सीधे आगे के रास्ते के लिए कोई विचार या यह एकमात्र तरीका यह किया जा सकता है?

उदाहरण सामग्री

x <- TRUE 
y <- 10 
foo1 <- function() message("hello world!") 
foo2 <- function() message("hello world again!") 

सभी कार्य ढूँढना वस्तुओं

wscontent <- ls(all.names=TRUE) 
funs <- sapply(wscontent, function(ii) { 
    eval(substitute(is.function(OBJ), list(OBJ=as.name(ii)))) 
}) 
> funs 
    foo1  foo2  funs wscontent   x   y 
    TRUE  TRUE  FALSE  FALSE  FALSE  FALSE 

Answer 1

कैसे के बारे में

lsf.str() 

जो सभी कार्यों को सूचीबद्ध करना चाहिए।

Answer 2

funs <- sapply(wscontent, function(x) is.function(get(x))) 

Answer 3

मैं एक समय पहले एक अधिक सामान्य खिलौना लिखा है:

lstype<-function(type='closure'){ 
inlist<-ls(.GlobalEnv) 
if (type=='function') type <-'closure' 
typelist<-sapply(sapply(inlist,get),typeof) 
return(names(typelist[typelist==type])) 
} 

Answer 4

आप eapply उपयोग कर सकते हैं:

which(unlist(eapply(.GlobalEnv, is.function))) 

... या sapply as.list साथ:

which(sapply(as.list(.GlobalEnv), is.function))