如何在函数中使用函数作为参数？

Question

我想知道如何将函数作为参数添加到函数中。

有很多函数可以将函数作为参数，例如do.call（）和summarise（），仅举几例。

为了使我的功能更通用，我发现此问题是常有的事。

test_func <- function(x = "value", 
                      f = "function"){
    x %>% f
}

期望的结果在下面的两个示例中得以实现。

test_func(x = c(1,2,3,4,5),
          f = mean())

或

test_func(x = c(1,2,3,4,5),
          f = "mean")

应该等于：

c(1,2,3,4,5) %>% mean()

Answer 1

findMean <- function(x, FUN = mean, ...){
  mean_of_x <- x%>% FUN(...)
  print(mean_of_x)
}