In jtrecenti/numero_cnj:

library(tjsp)
library(numerocnj)

data(d_cjpg_txt, package = 'tjsp.data')
data(d_cpopg, package = 'tjsp.data')


numeros <- unique(d_cjpg_txt$n_processo)
numeros_sem_digito <- sprintf('%s%s', 
                              substr(numeros, 1, 7), 
                              substr(numeros, 10, 20))
digitos <- substr(numeros, 8, 9)

numeros2 <- calcula_digito(numeros_sem_digito, monta = TRUE)
table(numeros2 == numeros)

dplyr::data_frame(numeros, numeros2) %>% 
  dplyr::filter(numeros != numeros2)

jtrecenti/numero_cnj documentation built on May 20, 2019, 3:17 a.m.