R上下文、环境和带有“.call”的调用堆栈`

有没有版本的

parent.frame

或

sys.calls

或其他通用上下文函数可以直接从

.Call

调用的C代码中调用？环顾

Rinternals.h

等，我似乎找不到类似的东西。我能想出的最好办法是：

my_fun <- function(x) {
   .Call(my_fun_C, substitute(x), parent.frame(), sys.calls())
}

---

但是

RCNTXT

是在

includes/Defn.h

中定义的，并且

Defn.h

看起来是一个内部非导出头。

看起来像是Eddi在中探索了类似的东西。

RCNTXT *cptr;

cptr = R_GlobalContext;
t = cptr->sysparent;