Check If Four Categories Are Mutually Exclusive

Check if the four input categories are mutually exclusive from each other

Usage

check_if_four_categories_are_mutually_exclusive(
  label_cat_1,
  label_cat_2,
  label_cat_3,
  label_cat_4,
  label_cat_missing = NULL,
  arg_cat_1 = rlang::caller_arg(label_cat_1),
  arg_cat_2 = rlang::caller_arg(label_cat_2),
  arg_cat_3 = rlang::caller_arg(label_cat_3),
  arg_cat_4 = rlang::caller_arg(label_cat_4),
  arg_cat_missing = rlang::caller_arg(label_cat_missing),
  error_call = rlang::caller_env()
)

Arguments

label_cat_1

First vector to check for mutually exclusiveness with another vector.

label_cat_2

Second vector to check for mutually exclusiveness with another vector.

label_cat_3

Third vector to check for mutually exclusiveness with another vector

label_cat_4

Fourth vector to check for mutually exclusiveness with another vector

label_cat_missing

Missing values vector to check for mutually exclusiveness with another vector if needed. Default: NULL

arg_cat_1

An argument name as a string for the first vector. This argument will be mentioned in error messages as the input that is at the origin of a problem.

arg_cat_2

An argument name as a string for the second vector. This argument will be mentioned in error messages as the input that is at the origin of a problem.

arg_cat_3

An argument name as a string for the third vector. This argument will be mentioned in error messages as the input that is at the origin of a problem.

arg_cat_4

An argument name as a string for the fourth vector. This argument will be mentioned in error messages as the input that is at the origin of a problem.

arg_cat_missing

An argument name as a string for the missing values vector. This argument will be mentioned in error messages as the input that is at the origin of a problem.

error_call

The execution environment of a currently running function, e.g. caller_env(). The function will be mentioned in error messages as the source of the error. See the call argument of abort() for more information.

Value

An error message if the four input categories are not mutually exclusive

See also

caller_arg, stack cli_vec, cli_abort

Examples

# No error
cat_1 <- c("no chest pain")
cat_2 <- c("typical")
cat_3 <- c("atypical")
cat_4 <- c("nonanginal")
cat_missing <- c("NA")
check_if_four_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_4)
check_if_four_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_4, cat_missing)

# Common labels found
cat_1 <- c("no chest pain","typical", "atypical", "nonanginal")
cat_2 <- c("no chest pain","typical", "atypical", "nonanginal")
cat_3 <- c("no chest pain","typical", "atypical", "nonanginal")
cat_4 <- c("no chest pain","typical", "atypical", "nonanginal")
cat_missing <- c("no chest pain","typical", "atypical", "nonanginal")

try(check_if_four_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_4))
#> Error in eval(expr, envir) : 
#>   `cat_1`, `cat_2`, `cat_3` and `cat_4` must be mutually exclusive.
#> Common values found in `cat_1` and `cat_2`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_1` and `cat_3`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_1` and `cat_4`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_2` and `cat_3`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_2` and `cat_4`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_3` and `cat_4`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Please ensure `cat_1`, `cat_2`, `cat_3` and `cat_4` do not hold common values.

try(check_if_four_categories_are_mutually_exclusive(cat_1, cat_2, cat_3, cat_4, cat_missing))
#> Error in eval(expr, envir) : 
#>   `cat_1`, `cat_2`, `cat_3`, `cat_4` and `cat_missing` must be mutually
#> exclusive.
#> Common values found in `cat_1` and `cat_2`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_1` and `cat_3`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_1` and `cat_4`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_2` and `cat_3`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_2` and `cat_4`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_3` and `cat_4`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_1` and `cat_missing`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_2` and `cat_missing`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_3` and `cat_missing`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Common values found in `cat_4` and `cat_missing`: "no chest pain", "typical",
#> "atypical" and "nonanginal".
#> Please ensure `cat_1`, `cat_2`, `cat_3`, `cat_4` and `cat_missing` do not hold
#> common values.