makeActiveBindingによってインストールされた関数にアクセスする方法はありますか？

Question

タイトルは基本的にそれをすべて言います。

私はこれを行う場合は...

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

...私はそれが（とない、なぜならば）リンクされている機能を学ぶためにxを検討するためにどのような方法、そこですか？

（この場合、私はxがfunction() runif(2)としたことを学ぶことができるようにしたいのですが）

Answer 1

envir.cに周りのヌードリングのビットが、私は仕事にこれを取得することができます：

#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 ; 
} 

sourceCppに、.cppファイルにこれを保存して、このRコードとそれを使用します。

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