Zugriffsmöglichkeiten aus formalem Argument der Funktion

Question

Gibt es eine Möglichkeit, auf die Auswahlmöglichkeiten eines Arguments einer Funktion zuzugreifen?

In diesem dummen Beispiel:

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 

Ich würde c("dog","cat","chicken","pig") durch den Zugriff auf den Vektor der Wahl aus der Erklärung, etwas ähnliches zu (so dass diese nach oben) zu vermeiden, wie Abtippen:

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

try dies: eval(formals(noise)[["animal"]])