r - リスト引数のmatch.arg関数

Question

私の質問は簡単です。

x=list(type="call")

FUN <- function(x=list(type=c("call","put")))
{
  x$type=match.arg(x$type)
}

これはエラーを返します：

> FUN(x)
Error in match.arg(x$type) : 'arg' should be one of “”

何か案は？

Answer 1

おそらくこれはあなたが望むものです：

FUN <- function(x=list(type=c("call","put")))
{
  x$type=match.arg(x$type, c('call', 'put'))
}


> print(FUN())
[1] "call"
> print(FUN(x))
[1] "call"
> print(FUN(list(type="put")))
[1] "put"