Доступ от формального аргумента функции

Question

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

В этом глупом Например:

noise <- function(animal = c("dog","cat","chicken","pig")){ # default animal is "dog" 
    animal <- match.arg(animal) 
    sound <- c("woof","meow","cluck","oink")[match(animal, c("dog","cat","chicken","pig"))] 
    sound 
} 
noise("chicken") # returns desired result 

Я хотел бы избежать перепечатывания c("dog","cat","chicken","pig") пути доступа вектора выбора из декларации, что-то подобное (выдумывает):

noise <- function(animal = c("dog","cat","chicken","pig")){ 
     animal <- match.arg(animal) 
     sound <- c("woof","meow","cluck","oink")[match(animal, self.choices("animal"))] 
     sound 
    } 

Answer 1

попробовать это: eval(formals(noise)[["animal"]])