funktionale Programmierung in R

Question

Ich habe von github die Functionals lesen. Ein Vorschlag auf der Seite war call_function zu verwenden, wenn man mit einer Liste von Funktionen arbeiten. Hier ist der Code von der Seite:

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

Der Ausgang als gepostet:

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

Allerdings war ich nicht in der Lage, die obigen Ergebnisse zu replizieren. Ich habe den Fehler:

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

Bin ich hier etwas fehlt?

Answer 1

Sie haben die Funktion sd neu definiert:

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" 

Ihre Sitzung neu starten oder rm(sd) tun.