Есть ли удобный, удобный способ получить список фактических аргументов изнутри?

Question

Предположим, что я пишу функцию foo с подписью

foo <- function (bar, baz, frobozz, quux = TRUE, frotz = 42) { 
      # etc. 
     } 

Если в теле этой функции, я хотел бы получить названный список фактических аргументов функции, полученные во время выполнения, я мог определить

actual_args <- list(bar = bar, baz = baz, frobozz = frobozz, quux = quux, 
        frotz = frotz) 

... но это назначение трудно поддерживать, так как она должна быть изменена каждый раз, когда аргумент будет добавлен, удален или переименован. (Не говоря уже о том, что это тоже утомительно).

Есть ли способ инициализировать actual_args, который останется неизменным относительно будущих изменений в сигнатуре функции?

Answer 1

Вы можете использовать ls() в функции, чтобы получить список всех переменных, определенных. Если вы вызываете это сразу после запуска функции, вы получите список всех параметров. Затем вы можете использовать mget(), чтобы поместить эти значения в список. Например

foo<-function(a,b,c) { 
    mget(ls()) 
} 

Это будет работать с вашим do.call/mapply сценария

df <- data.frame(
    a=1:3, 
    b=letters[1:3], 
    c = runif(3)) 

do.call("mapply", c(foo, df)) 
# [,1]  [,2]  [,3]  
# a 1   2   3   
# b factor,1 factor,1 factor,1 
# c 0.7845643 0.0297852 0.3611791 

Answer 2

См ?match.call

foo <- function(a, b, c, d, ...) 
match.call() 

foo(1, 2, 3, bar, e=baz()) 
# foo(a = 1, b = 2, c = 3, d = bar, e = baz()) 

Это объект вызова, чей первый аргумент является именем функции, вызываемой (foo в данном случае). Другими аргументами являются неаудированные аргументы foo.

foo(1, 2, 3, bar, e=baz())[[1]] 
# foo 

foo(1, 2, 3, bar, e=baz())[[2]] 
# 1 

# the name of a variable 
foo(1, 2, 3, bar, e=baz())[[5]] 
# bar 

# a function call 
foo(1, 2, 3, bar, e=baz())[[6]] 
# baz()