R 检查包中的函数是否是从包 fun 或外部调用的

Question

如何从包(导出)函数中检查当前函数执行是否已被该包中的函数调用，或者是否被外部包/全局环境调用。

我目前的方法是通过实验开发的:

myfun <- function(){
    current_call = sys.call()
    parent_call = sys.call(sys.parent())
    if(identical(current_call,parent_call) || !identical(environmentName(parent.env(environment(match.fun(parent_call[[1L]])))),"imports:mypkg")){
        cat("called externally\n")
    }
}

似乎不处理依赖于我的包的其他包中构造的匿名函数。
不是特别与 devtools 相关，而是与 devtools 很好地解决的包开发相关。

编辑:
目标是在任何情况下调用操作(上例中的 cat())，除了来自同一包中的其他函数的调用。

Answer 1

借用data.table:::cedta，我将这两个函数放在一个名为test的包中

myfun <- function() {
  te <- topenv(parent.frame(1))
  if(isNamespace(te) && getNamespaceName(te) == "test") { # <-- "test" is the name of the package
    cat("called from my package\n")
  } else cat("Not called from my package\n")
}

tester <- function() {
  myfun()
}

加载test包后，我得到了这些结果

test:::myfun()
#Not called from my package
test:::tester()
#called from my package