Verifies if a check digit is correct

check_dig_vet(num)

Arguments

num

A vector containing strings with the complete lawsuit number

Value

Whether or not the check digit is well calculated

Examples

{
  check_dig_vet(c("0005268-75.2013.8.26.0100", "0004122-85.2010.6.16.0100"))
}
#> [1]  TRUE FALSE