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