Область применения общих функций R

Question

Если вы определяете переменную внутри общей функции, она доступна для метода. Например:

g <- function(x) { 
    y <- 2 
    UseMethod("g") 
} 
g.default <- function() y 
g() 
[1] 2 

Но если переменная, которую вы определяете, имеет то же имя, что и параметр функции, этого не происходит. Кажется, что R удаляет эту переменную перед вызовом метода:

g <- function(x) { 
    x <- 2 
    UseMethod("g") 
} 
g.default <- function() x 
g() 
Error in g.default() : object 'x' not found 

Может кто-нибудь объяснить, что здесь происходит?

Answer 1

Следующие комментарии от C source file that defines do_usemethod хотя бы намекают на то, что происходит. См. Особенно второе предложение второго перечисленного элемента.

В принципе, это выглядит (из-за немого применения правила в этой второй точке), значение x не копируется, потому что код C проверяет, является ли он среди формалей, видит, что он есть, и поэтому исключает, если из списка переменных, вставленных в среду оценки метода.

/* usemethod - calling functions need to evaluate the object 
* (== 2nd argument). They also need to ensure that the 
* argument list is set up in the correct manner. 
* 
* 1. find the context for the calling function (i.e. the generic) 
* this gives us the unevaluated arguments for the original call 
* 
* 2. create an environment for evaluating the method and insert 
* a handful of variables (.Generic, .Class and .Method) into 
* that environment. Also copy any variables in the env of the 
* generic that are not formal (or actual) arguments. 
* 
* 3. fix up the argument list; it should be the arguments to the 
* generic matched to the formals of the method to be invoked */