Bất kỳ cách nào để truy cập chức năng được cài đặt bởi makeActiveBinding?

Question

Tiêu đề cơ bản nói lên tất cả.

Nếu tôi làm điều này ...

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

... là có thì cách nào cho tôi để kiểm tra x để tìm hiểu những gì chức năng nó được liên kết với (và nếu không, tại sao không)?

(. Trong trường hợp này, tôi muốn để có thể biết rằng x được xác định là function() runif(2))

Answer 1

Với một chút noodling xung quanh trong envir.c, tôi có thể có được điều này để làm việ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 ; 
} 

Lưu này vào một tập tin .cpp, sourceCpp nó và sử dụng nó với mã R này:

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