Calculate digits for Brazilian lawsuit identification numbers

Returns the check digit of a lawsuit numbers in the format unified by the Brazilian National Council of Justice.

calc_dig(num, build = FALSE)

Arguments

num

Ordered digits of the lawsuit number (including 0's) excluding the check digit

build

Whether or not the function return the complete lawsuit number (or only the check digits)?

Value

The check digits or the complete identification number

Examples

{
  calc_dig("001040620018260004", build = TRUE)
  calc_dig("001040620018260004", build = FALSE)
}
#> [1] "40"