numbers <- c(1,2,3,4,5)
func <- lazy_eval(numbers, .f = sum)
sum_result <- func()
max_result <- func(.f = max)
mean_result <- func(.f = mean)
range_result <- func(.f = function(...) { max(...) - min(...)})
add_more_num_result <- func(4,5,6, NA, na.rm = TRUE)
updated_func <- func(na.rm = TRUE, return_new_closure = TRUE)
updated_func_result <- updated_func()
Run the code above in your browser using DataLab