Dlaczego funkcja match.call jest przydatna?

Question

W treści niektórych funkcji R, na przykład lm, widzę połączenia z funkcją match.call. Jak mówi strona pomocy, gdy jest używana wewnątrz funkcji match.call, zwraca wywołanie, w którym podane są nazwy argumentów; i ma to być przydatne do przekazywania dużej liczby argumentów do innych funkcji.

Na przykład w funkcji lm widzimy wywołanie funkcji model.frame

function (formula, data, subset, weights, na.action, method = "qr", 
model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, 
contrasts = NULL, offset, ...) 
{ 
cl <- match.call() 
mf <- match.call(expand.dots = FALSE) 
m <- match(c("formula", "data", "subset", "weights", "na.action", 
    "offset"), names(mf), 0L) 
mf <- mf[c(1L, m)] 

mf$drop.unused.levels <- TRUE 
mf[[1L]] <- quote(stats::model.frame) 
mf <- eval(mf, parent.frame()) 

Dlaczego jest to bardziej przydatne niż czyni prostą wezwanie do model.frame określające nazwy argumentów jak zrobić dalej?

function (formula, data, subset, weights, na.action, method = "qr", 
model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, 
contrasts = NULL, offset, ...) 
{ 
mf <- model.frame(formula = formula, data = data, 
        subset = subset, weights = weights, subset = subset) 

Zauważ, że match.call ma inne zastosowanie, że nie dyskutować, przechowywania połączenie w powstałego obiektu.

Answer 1

Jednym z powodów jest to, że match.call przechwytuje język połączenia bez jego oceny, w tym przypadku umożliwia lm potraktowanie niektórych "brakujących" zmiennych jako "opcjonalne". Rozważmy:

lm(x ~ y, data.frame(x=1:10, y=runif(10))) 

kontra

lm2 <- function (
    formula, data, subset, weights, na.action, method = "qr", 
    model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, 
    contrasts = NULL, offset, ... 
) { 
    mf <- model.frame(
    formula = formula, data = data, subset = subset, weights = weights 
) 
} 
lm2(x ~ y, data.frame(x=1:10, y=runif(10))) 
## Error in model.frame.default(formula = formula, data = data, subset = subset, : 
## invalid type (closure) for variable '(weights)' 

W lm2, ponieważ weights jest "brak", ale nadal go używać w weights=weights, R próbuje użyć funkcji stats::weights który wyraźnie nie to, co było zamierzone. Możesz obejść to, sprawdzając brakujące dane, zanim zadzwonisz pod numer model.frame, ale w tym momencie match.call zaczyna wyglądać całkiem nieźle. Spójrz na to, co się stanie, jeśli debug wezwanie:

debug(lm2) 
lm2(x ~ y, data.frame(x=1:10, y=runif(10))) 
## debugging in: lm2(x ~ y, data.frame(x = 1:10, y = runif(10))) 
## debug at #5: { 
##  mf <- model.frame(formula = formula, data = data, subset = subset, 
##   weights = weights) 
## } 
Browse[2]> match.call() 
## lm2(formula = x ~ y, data = data.frame(x = 1:10, y = runif(10))) 

match.call nie wiąże brakujących argumentów w ogóle.

Można argumentować, że opcjonalne argumenty powinny być jawnie opcjonalne za pomocą wartości domyślnych, ale nie to się tutaj stało.