variables évaluation au sein de la boucle R

Question

Je suis en train de générer itérativement certaines fonctions en utilisant une boucle For:

# Create a list to hold the functions 
funcs <- list() 
funcs[] 

# loop through to define functions 
for(i in 1:21){ 

    # Make function name 
    funcName <- paste('func', i, sep = '') 

    # make function 
    func = function(x){x * i} 

    funcs[[funcName]] = func 

    } 

Cependant, cela ne fonctionne pas comme je l'espérais que la valeur i n'est pas en cours d'évaluation au sein de chaque fonction. Je veux essayer et définir la fonction pour égaler x * 1; x * 2; etc, mais ce que je finis avec est une fonction qui est x * i; où i est 21.

J'ai essayé d'utiliser la fonction eval() et cela a juste eu pour résultat que x * eval (i) était stocké.

Answer 1

Vérifiez celui-ci:

# Create a list to hold the functions 
funcs <- list() 
funcs[] 

# loop through to define functions 
for(i in 1:21){ 

    # Make function name 
    funcName <- paste('func', i, sep = '') 

    # make function 
    func = paste('function(x){x * ', i,'}',sep = '') 

    funcs[[funcName]] = eval(parse(text=func)) 

    } 

Answer 2

Utilisez une fermeture (fonction qui écrivent des fonctions):

multiply <- function(i) { 
    force(i) 
    function(x) x * i 
} 

funcs <- list() 
for(i in 1:21){ 
    funcName <- paste('func', i, sep = '') 
    funcs[[funcName]] = multiply(i) 
} 

# OR in one line, with lapply 
funcs <- lapply(1:21, multiply)