R哪个函数运行另一个函数

Question

我有这样的代码：

f.internal <- function(){
  print("f.internal was called by ...")
}

f.external <- function(){
  f.internal()
}

如何在R中检查，这两个函数中的哪一个运行另一个函数？

Answer 1

编写一个名为 getCaller() 的助手，它使用 tryCatch 中的 stop() 来生成一个 traceback 调用堆栈。使用它可以识别最后几个调用函数。

然后让 f.internal() 调用帮助程序以产生所需的输出。