r - 获取当前调用的函数来编写匿名递归函数

Question

如何在递归应用的函数中获取当前函数？这是一个简单的例子:

myfun <- function(x) {
  if(is.list(x)){
    lapply(x, myfun)
  } else {
    length(x)
  }
}

我想匿名，但我不知道如何告诉 lapply在没有名称时使用当前函数。我试过 Recall但这不起作用:

(function(x) {
  if(is.list(x)){
    lapply(x, Recall)
  } else {
    length(x)
  }
})(cars)

还有 match.call()[[1]]对匿名函数没有帮助。

Answer 1

是sys.function(0) ，例如递归计算列表的平方:

(function(x) {
  if(length(x)>2){
    lapply(x,sys.function(0))
  } else {
    x^2
  }
})(list(1,2,3))

 [[1]]
[1] 1

[[2]]
[1] 4

[[3]]
[1] 9