Jakikolwiek sposób na dostęp do funkcji zainstalowanej przez makeActiveBinding?

Question

Tytuł w zasadzie mówi wszystko.

Jeśli mogę to zrobić ...

makeActiveBinding("x", function() runif(2), .GlobalEnv) 
x 
# [1] 0.7332872 0.4707796 
x 
# [1] 0.5500310 0.5013099 

... czy jest jakiś sposób, wtedy dla mnie zbadać x aby dowiedzieć się jaka funkcja jest związana z (a jeśli nie, to dlaczego)?

(. W tym przypadku, chciałbym być w stanie dowiedzieć się, że x została zdefiniowana jako function() runif(2))

Answer 1

Przy odrobinie noodling wokół w envir.c mogę uzyskać to do pracy:

#include <Rcpp.h> 
using namespace Rcpp ; 

#define HASHSIZE(x)  LENGTH(x) 
#define HASHVALUE(x) TRUELENGTH(x) 

// [[Rcpp::export]] 
SEXP get_binding_fun(std::string name, Environment env){ 
    SEXP symbol = Rf_install(name.c_str()); 
    SEXP tab = HASHTAB(env) ; 
    SEXP c = PRINTNAME(symbol); 

    // finding the hash code for the symbol 
    int hashcode = HASHVALUE(c) % HASHSIZE(tab); 

    // get the value there from the hash table 
    SEXP res = CAR(VECTOR_ELT(tab, hashcode)) ; 

    return res ; 
} 

Zapisz to w pliku .cpp, sourceCpp go i używać go z tego kodu R:

> makeActiveBinding("x", function() runif(2), .GlobalEnv) 
> get_binding_fun("x", .GlobalEnv) 
# function() 
# runif(2)