7 lines
97 B
R
7 lines
97 B
R
f1 <- function(...){print("coucou")}
|
|
|
|
f2 <-function(f,n){
|
|
lapply(seq_len(n),eval(f))
|
|
}
|
|
|
|
f2(f1,4)
|