r - R 中的函数式编程

Question

我一直在阅读来自 github 的 Functionals .页面中的一个建议是使用 call_function如果一个人正在使用函数列表。这是页面中的代码:

call_fun <- function(f, ...) f(...)
f <- list(sum, mean, median, sd)
lapply(f, call_fun, x = runif(1e3))

输出发布为:

# [[1]]
# [1] 498
# 
# [[2]]
# [1] 0.498
# 
# [[3]]
# [1] 0.49
# 
# [[4]]
# [1] 0.29

但是，我无法复制上述结果。我得到了错误:

Error in FUN(X[[4L]], ...) : could not find function "f"

我在这里错过了什么吗？

Answer 1

您重新定义了函数 sd :

sd = 2

call_fun <- function(f, ...) f(...)
f <- list(sum, mean, median, sd)
lapply(f, call_fun, x = runif(1e3))
#Error in FUN(X[[4L]], ...) : could not find function "f"

重新启动您的 session 或执行 rm(sd) .