To validate a strata list. It makes sure that elements are unique and point to columns in table.

To validate a strata list. It makes sure that elements are unique and point to columns in table.

Usage

validateStrataArgument(
  strata,
  table,
  empty = TRUE,
  nm = deparse1(substitute(strata), backtick = TRUE),
  call = parent.frame()
)

Arguments

strata

A list of characters that point to columns in table.

table

A table with columns.

empty

Whether it can be empty.

nm

Name to use in error messages. Defaults to the expression supplied to strata.

call

Passed to cli functions.

Value

The same strata input or an error if the input is incorrect.

Examples

strata <- list("age", "sex", c("age", "sex"))
x <- dplyr::tibble(age = 30L, sex = "Female")

validateStrataArgument(strata, x)
#> [[1]]
#> [1] "age"
#> 
#> [[2]]
#> [1] "sex"
#> 
#> [[3]]
#> [1] "age" "sex"
#>