関数のデフォルトの引数と名前付き値

Question

引数がいくつかの既定の名前付き値のうちの1つ（既定値の1つ）またはカスタム文字ベクトルの1つになるR関数があるとします。どのように私は魔法の価値の名前や別の旗に頼ることなくこれを実装する必要がありますか？

#allow use of predefined subsets or pass their own list 
bratPack<-function(members='CORE',...){ 
    if (members=='CORE') 
    members<-c('Emilio Estevez','Anthony Michael Hall','Rob Lowe','Andrew McCarthy','Demi Moore','Judd Nelson','Molly Ringwald','Ally Sheedy') 
    else if (members=='ALL') 
    members<-c('Emilio Estevez','Anthony Michael Hall','Rob Lowe','Andrew McCarthy','Demi Moore','Judd Nelson','Molly Ringwald','Ally Sheedy','James Spader','Robert Downey, Jr.','Jon Cryer', 'John Cusack', 'Kevin Bacon', 'Jami Gertz', 'Mary Stuart Masterson', 'Matthew Broderick', 'Sean Penn', 'Kiefer Sutherland') 
    ... 
} 

Answer 1

私はどこかのパッケージでは、いくつかの定数データフレームを使用したい：

.mdata <- data.frame(
    CORE= c(TRUE,FALSE,TRUE), 
    OLD = c(TRUE,TRUE,FALSE), 
    ALL = c(TRUE,TRUE,TRUE), 
    row.names=c("John Doe", "Jan Janssen", "Piet Peters") 
) 

bratPack<-function(members='CORE',...){ 
    m.tmp <- try(
     match.arg(members,names(.mdata),several.ok=T), 
     silent=T) 

    if(!is(m.tmp,"try-error")) 
    members <- rownames(.mdata)[.mdata[[members]]] 

    print(members) 
} 

> bratPack('CORE') 
[1] "John Doe" "Piet Peters" 

> bratPack('Jan Janssen') 
[1] "Jan Janssen" 

> bratPack(c("John Doe","Dick Dickers")) 
[1] "John Doe"  "Dick Dickers" 

Answer 2

あなたの例から、我々は"CORE"と"ALL"の選択肢を持っています。それらが2つのオプションである場合、引数'members'の関数定義で指定します。例えば：これが最初の名前の選択肢であると定義する機能

foo <- function(x, members = c("CORE", "ALL")) { 
    ## do something 
} 

が"CORE"のデフォルトで、引数'members'ための許容値を設定します。

@Jorisがすでに述べたように、関数本体内で使用されるコードはmatch.arg()ですが、上記のように関数を設定しているので、単にmatch.arg(members}という使い方にすることができます。我々はオプションのセットに含まれていない文字列を指定するとき

> foo() 
[1] "CORE" 
> foo(members = "CORE") 
[1] "CORE" 
> foo(members = "ALL") 
[1] "ALL" 
> foo(members = "3rdRate") 
Error in match.arg(members) : 'arg' should be one of “CORE”, “ALL” 

お知らせ行動：私たちはこのように使用

foo <- function(x, members = c("CORE", "ALL")) { 
    ## evaluate choices 
    members <- match.arg(members) 
    ## do something 
    print(members) 
} 

：

だからとしてfooを書くことができます。関数の引数にオプションを設定しているので、直感的なエラーメッセージが表示されます。