r - 计算对函数的调用次数(不明确)

Question

我需要计算对函数的调用次数并在函数中使用它，但不是明确地。例如。例子:

f <- function(i,ncall) {
 print(paste("call to function number", ncall))
 i = i^2
 return(i)  
}

print(f(3,ncall=1))
print(f(4,ncall=2))

我想做同样的事情，但不提供 ncall=N在 f(a,N)每次。这没有宇宙目的，只是想知道它是否可能。谢谢!

Answer 1

您可以将函数设置为拥有自己的封闭环境:

f <- local({
    n <- 0
    function(i, reset=FALSE)
    {
        n <<- if(reset) 0 else n + 1
        print(paste("call to function number", n))
        i^2
    }
})

f(3)
# [1] "call to function number 1"
# [1] 9
f(4)
# [1] "call to function number 2"
# [1] 16