handle names in match_param() better

[jmbarbone]

Found some accidental name selection matching.

library(mark)

# using names should only work when choices is a `list`

values <- list(a = 1, b = 2)
foo <- function(x = values) {
  match_param(x)
}

foo(1)
#> [1] "a"
foo(2)
#> [1] "b"

# otherwise, there may be accidents

values <- c(a = 1, b = 2)
foo <- function(x = values) {
  match_param(x)
}

foo(1)
#> [1] "a"
foo(2)
#> [1] "b"
try(foo(3))
#> Error : <matchParamMatchError> `match_param(x)` failed in `foo(3)`:
#>   `x` [3] must be one of the following: "1", "2"
#> package:mark

^{Created on 2023-06-28 with reprex v2.0.2}

Maybe include an argument names = is.list(choices) may be better for handling this.

Maybe include a better error message with names

`x` [3]` must be one of the following: a:"1", b:"2"