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（）调用帮助程序来生成所需的输出。