機能

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"]])