R语言-引用函数对象作为参数

问题描述

testFun <- function(Fun){
x <- 1:100
Fun(x)
}

解法

#1. 直接调用
testFun <- function(Fun){
x <- 1:100
Fun(x)
}
testFun(sum) # 5050
testFun(Fun = function(x) sum(x) + 1) # 5051

#2. do.call
testFun <- function(Fun){
x <- 1:100
do.call(Fun, list(x))
}
testFun(sum)  # 5050
testFun(Fun = function(x) sum(x) + 1)  # 5051
testFun('sum') # 5050  -- do.call可以根据字符串名称调用函数

#3. eval，parse (字符串声明函数)
testFun <- function(Fun){
x <- 1:100
eval(parse(text = Fun))
}
testFun('sum(x) + 1') # 5051

#4. match.fun
testFun <- function(Fun){
x <- 1:100
Fun <- match.fun(Fun)
Fun(x)
}
testFun(sum)   # 5050
testFun('sum') # 5050