Check if an object is an element of a given set
Usage
checkChoice(x, choices, null.ok = FALSE, fmatch = FALSE)
check_choice(x, choices, null.ok = FALSE, fmatch = FALSE)
assertChoice(
x,
choices,
null.ok = FALSE,
fmatch = FALSE,
.var.name = vname(x),
add = NULL
)
assert_choice(
x,
choices,
null.ok = FALSE,
fmatch = FALSE,
.var.name = vname(x),
add = NULL
)
testChoice(x, choices, null.ok = FALSE, fmatch = FALSE)
test_choice(x, choices, null.ok = FALSE, fmatch = FALSE)
expect_choice(
x,
choices,
null.ok = FALSE,
fmatch = FALSE,
info = NULL,
label = vname(x)
)
Arguments
- x
[any]
Object to check.- choices
[
atomic
]
Set of possible values.- null.ok
[
logical(1)
]
If set toTRUE
,x
may also beNULL
. In this case only a type check ofx
is performed, all additional checks are disabled.- fmatch
[
logical(1)
]
Use the set operations implemented infmatch
in package fastmatch. If fastmatch is not installed, this silently falls back tomatch
.fmatch
modifiesy
by reference: A hash table is added as attribute which is used in subsequent calls.- .var.name
[
character(1)
]
Name of the checked object to print in assertions. Defaults to the heuristic implemented invname
.- add
[
AssertCollection
]
Collection to store assertion messages. SeeAssertCollection
.- info
[
character(1)
]
Extra information to be included in the message for the testthat reporter. Seeexpect_that
.- label
[
character(1)
]
Name of the checked object to print in messages. Defaults to the heuristic implemented invname
.
Value
Depending on the function prefix:
If the check is successful, the functions
assertChoice
/assert_choice
return
x
invisibly, whereas
checkChoice
/check_choice
and
testChoice
/test_choice
return
TRUE
.
If the check is not successful,
assertChoice
/assert_choice
throws an error message,
testChoice
/test_choice
returns FALSE
,
and checkChoice
/check_choice
return a string with the error message.
The function expect_choice
always returns an
expectation
.
Note
The object x
must be of the same type as the set w.r.t. typeof
.
Integers and doubles are both treated as numeric.
See also
Other set:
checkDisjunct()
,
checkPermutation()
,
checkSetEqual()
,
checkSubset()
Examples
testChoice("x", letters)
#> [1] TRUE
# x is not converted before the comparison (except for numerics)
testChoice(factor("a"), "a")
#> [1] FALSE
testChoice(1, "1")
#> [1] FALSE
testChoice(1, as.integer(1))
#> [1] TRUE