programowanie funkcjonalne w R

Question

Czytałem funkcjonalności od github. Jedną z sugestii na stronie było użycie call_function, jeśli pracuje się z listą funkcji. Oto kod ze strony:

call_fun <- function(f, ...) f(...) 
f <- list(sum, mean, median, sd) 
lapply(f, call_fun, x = runif(1e3)) 

Wyjście został opublikowany jako:

# [[1]] 
# [1] 498 
# 
# [[2]] 
# [1] 0.498 
# 
# [[3]] 
# [1] 0.49 
# 
# [[4]] 
# [1] 0.29 

Jednak nie był w stanie powtórzyć powyższe wyniki. Wystąpił błąd:

Error in FUN(X[[4L]], ...) : could not find function "f" 

Czy brakuje mi tutaj czegoś?

Answer 1

Masz nowo funkcję sd:

sd = 2 

call_fun <- function(f, ...) f(...) 
f <- list(sum, mean, median, sd) 
lapply(f, call_fun, x = runif(1e3)) 
#Error in FUN(X[[4L]], ...) : could not find function "f" 

ponownego uruchomienia sesji czy rm(sd).