Рекурсивно применять функции к вектору с purrr

Question

Может кто-нибудь сказать, пожалуйста, что это за мурлыкающая версия:

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

(Мои попытки уменьшить и накопить не увенчались успехом.)

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

^{Создано в 2019-02-19 с помощью пакета представ (v0.2.1)}

Или

compose(!!! fl)(x)