lập trình chức năng trong R

Question

Tôi đã đọc các Chức năng từ github. Một gợi ý trong trang là sử dụng call_function nếu một trong những hoạt động với một danh sách các chức năng. Đây là đoạn mã từ trang:

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

Sản lượng đã được đăng như:

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

Tuy nhiên, tôi đã không thể tái tạo những kết quả trên. Tôi gặp lỗi:

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

Tôi có thiếu gì đó ở đây không?

Answer 1

Bạn đã xác định lại chức năng 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" 

Khởi động lại phiên của bạn hoặc làm rm(sd).