Validate Schedule Type Input

Check whether pairs of schedule types input are valid. Specifically, each pair must be either "VI" "VI" or "FR", "FR".

Usage

valid_sched_input(x)

Arguments

x

A list of 2 character vectors, where each vector contains schedule labels. See choice_params() for additional details about inputting schedule types.

Value

A logical value: TRUE if all pairs contain valid and matching schedule types.

See also

choice_params()

Examples

# Valid
valid_sched_input(list(c("VI", "VI", "FR"), c("VI", "VI", "FR")))
#> [1] TRUE
# Invalid
valid_sched_input(list(c("FR", "VI", "FR"), c("VI", "VI", "FR")))
#> [1] FALSE