使用purrr

Question

有人可以告诉我它的Purrr版本是什么：

fl <- list(sin, cos, cos, sqrt)
x <- seq(0, 1, length.out = 10)
Reduce(function(f, ...) f(...), fl, x, right = T)

（我对reduce和累加的尝试没有成功。）

Answer 1

library(purrr)

lift(compose)(fl)(x)
#>  [1] 0.5143953 0.5528477 0.5880842 0.6202147 0.6493739 0.6757146 0.6994011
#>  [8] 0.7206037 0.7394947 0.7562439

^{由reprex package（v0.2.1）于2019-02-19创建}

或

compose(!!! fl)(x)