Is it a DEA registration number?

Is it a DEA registration number?

Usage

is_dea(x)

Arguments

x

A character vector.

Value

Logical vector; TRUE for two letters + seven digits whose DEA check digit is valid.

See also

Other gov detectors: is_chinese_resident_id(), is_ein(), is_naics(), is_ssn(), is_uei()

Examples

is_dea(c("AP5836727", "AP5836728", NA))
#> [1]  TRUE FALSE    NA