Match arguments

This function is essentially a clear version of base::match.arg() which produces a cleaner warning message and does not restrict the table param to character vectors only.

Usage

match_arg(x, table)

Arguments

x

An argument

table

A table of choices

Value

A single value from x matched on table

Details

Match arguments

See also

match_param()

Examples

x <- c("apple", "banana", "orange")
match_arg("b", x)
#> [1] "banana"

# Produces error
try(match_arg("pear", x))
#> Error : <condMatchArgError> pear : 'pear' did not match of of the following:
#>    'apple', 'banana', 'orange'
#> package:mark

foo <- function(x, op = c(1, 2, 3)) {
  op <- match_arg(op)
  x / op
}

foo(10, 3)
#> [1] 3.333333

# Error
try(foo(1, 0))
#> Error : <condMatchArgError> op : '0' did not match of of the following:
#>    '1', '2', '3'
#> package:mark