Pouvez-vous permettre à une fonction R de voir les valeurs de ses propres formats lors de l'évaluation?

Question

Dans le langage R, supposons que j'ai une fonction ff (jj, kk, mm). Je voudrais que la fonction appelante (ou appeler un être humain dans une session interactive) soit capable de faire dépendre de façon arbitraire mm sur jj et kk au moment de l'appel.

Pour concrétude, on suppose que:

ff <- function(jj, kk, mm){ 
    xx <- jj + kk 
    out<- xx/mm 
    out 
} 

Puis au moment de l'exécution, je veux mettre mm <- jj*kk. i.e. .:

ff(2, 3, (jj*kk)) 

ce rendement:

Error in ff(2, 3, (jj * kk)) : object 'jj' not found 

Cette erreur est pas jeté jusqu'à mm est évaluée, à savoir après jj et kk ont déjà été évalués avec succès. Donc, ils sont ensuite évalués une deuxième fois avec différentes règles de portée. Je comprends que c'est la portée R-standard. Je demande, puis-je écrire la fonction de telle manière qu'elle me laisse mm un nombre simple, ou une fonction des autres arguments formels, à condition que ces arguments aient été ou puissent être évalués avant que mm soit requis?

Notez que je ne demande pas si je devrais le faire. Je vais faire semblant d'être poli avec les gens qui offrent des vues sur cette dernière question. Je ne demande pas non plus si je peux pré-calculer jj et remettre à la main le numéro prédigéré. Je sais c'est une réponse plausible, mais cela ne fonctionne pas pour des raisons que j'ai simplifiées sur le problème.

Answer 1

En l'état actuel, votre fonction ff() ne fonctionne pas parce supplied arguments are evaluated in the context of the calling environment, dont le point ni vue ni jjkk sont « visibles ».

Pour évaluer la déclaration fournie à mm dans le cadre du propre cadre d'évaluation de la fonction, utilisez eval(substitute()), comme ceci:

ff <- function(jj, kk, mm){ 
    mm <- eval(substitute(mm)) 
    xx <- jj + kk 
    out<- xx/mm 
    out 
} 

ff(2, 3, (jj*kk)) 
## [1] 0.8333333