使用ensym

myFun <- function(FUN)
  {
  if(rlang::as_string(rlang::ensym(FUN)) != "var") {
      print("fx isn't var")
  } else {
    print("fx is var")
  }
}

• 测试

> myFun(var)
[1] "fx is var"
> myFun(mean)
[1] "fx isn't var"

但是，可以直接传递该函数

f1 <- function(x, FUN) FUN(x)
> f1(1:5, var)
[1] 2.5
> f1(1:5, mean)
[1] 3

您可以将函数名转换为字符，然后在此基础上进行测试：

myFun = function(FUN) {
  if (as.character(substitute(FUN)) != "var") {
    print("fx isn't var")
  } else {
    print("fx is var")
  }
}

myFun(var)
# [1] "fx is var"

myFun(mean)
# [1] "fx isn't var"

注意，如果你传递"var"而不是var，这也会打印"fx is var"，并且即使输入根本不是函数，也会打印"fx isn’t var"，你可以在函数的开头添加stopifnot(is.function(FUN))来处理这些情况。