Description Usage Arguments Value Note References Examples
Checks that the input contains UK car licence plate numbers.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | assert_all_are_uk_car_licences(x, na_ignore = FALSE,
severity = getOption("assertive.severity", "stop"))
assert_any_are_uk_car_licences(x, na_ignore = FALSE,
severity = getOption("assertive.severity", "stop"))
assert_all_are_uk_car_licenses(x, na_ignore = FALSE,
severity = getOption("assertive.severity", "stop"))
assert_any_are_uk_car_licenses(x, na_ignore = FALSE,
severity = getOption("assertive.severity", "stop"))
is_uk_car_licence(x)
is_uk_car_license(x)
|
x |
Input to check. |
na_ignore |
A logical value. If |
severity |
How severe should the consequences of the assertion be?
Either |
is_uk_national_insurance_number
returns TRUE
if the
input string contains a valid UK car licence plate number The assert_*
function returns nothing but throw an error when the is_*
function
returns FALSE
.
A single space, in the appropriate place, is allowed but not compulsory.
Regex taken from http://www.regexlib.com/REDetails.aspx?regexp_id=527.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | licences <- c(
#1903 to 1931
"A 1", "AA 9999", #ok
"A 01", #zero prefix on number
"S0", "G0", "RG0", "LM0", #ok, special plates
#1931 to 1963
"AAA 1", "AAA 999", #ok
"III 1", "QQQ 1", "ZZZ 1", #disallowed letters
"AAA 01", #zero prefix on number
#1931 to 1963 alt
"1 AAA", "9999 AAA", #ok
"1 III", "1 QQQ", "1 ZZZ", #disallowed letters
"01 AAA", #zero prefix on number
#1963 to 1982
"AAA 1A", "AAA 999A", #ok
"AAA 1I", "AAA 1O", "AAA 1Q", #disallowed letters
"AAA 1U", "AAA 1Z",
"AAA 01A", #zero prefix on number
#1982 to 2001
"A1 AAA", "A999 AAA", #ok
"I1 AAA", "O1 AAA", #disallowed letters
"U1 AAA", "Z1 AAA",
"A01 AAA", #zero prefix on number
#2001 to 2051
"AA00 AAA", "AA99 AAA", #ok
"II00 AAA", "QQ00 AAA", "ZZ00 AAA", #disallowed letters
"AA00 III", "AA00 QQQ"
)
is_uk_car_licence(licences)
assert_any_are_uk_car_licences(licences)
#These examples should fail.
assertive.base::dont_stop(assert_all_are_uk_car_licences(licences))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.