Check and convert a vector of organizational identity numbers.
Examples
ex_oin <- c("556000-4615", "232100-0156", "802002-4280", "8020024280", "AA2002-4280")
as.oin(ex_oin)
#> Warning: Erroneous oin(s) (set to NA).
#> [1] "556000-4615" "232100-0156" "802002-4280" "802002-4280" NA
#> Organizational identity number(s)