{abjutils} is a toolkit with some useful functionscreated by the Brazilian Jurimetrics Association (Associação Brasileira de Jurimetria).
Most functions help with identifying lawsuit IDs as specified by theNational Justice Council (ConselhoNacional de Justiça): NNNNNNN-DD.AAAA.J.TR.OOOO. The rest helps withASCII and other formatting problems.
You can install the most recent version of{abjutils}with:
# CRANinstall.packages("abjutils")# GitHub (dev)install.packages("remotes")remotes::install_github("abjur/abjutils")| Function | Description |
|---|---|
build_id() | Add separators to ID |
calc_dig() | Calculate verification digit of an ID |
carf_build_id() | Add digits to CARF ID |
carf_calc_dig() | Calculate verification digit of a CARF ID |
carf_check_dig() | Check digits of a CARF ID |
check_dig() | Check digits of an ID |
check_dig_vet() | Check a verification digit vector |
chrome_to_body() | Convert POST parameters to a list |
clean_cnj() | Remove non-numeric characters from a string |
clean_id() | Remove separators from an ID |
escape_unicode() | Replace extended Latin characters with escaped Unicode |
extract_parts() | Extract ID parts |
file_sans_ext() | Extract filename without extension |
gather_subjects() | Gather ESAJ subjects automatically |
lsos() | List objects in an R session |
pattern_cnj() | Regex pattern to find IDs |
precision() | Apply precision scale |
reais() | Convert BRL strings into numbers |
rm_accent() | Remove diacritics from a string |
sample_cnj() | Create a random sample of IDs |
separate_cnj() | Separate a column of IDs into 6 columns with its components |
tabela() | Create a contingency table of a vector |
test_fun() | Check if all arguments from a function are set |
verify_cnj() | Check if ID conforms with CNJ’s standard |
write_data() | Write file todata/ |
Example 1:
# Remove separators from IDabjutils::clean_id(c("1025736-09.2014.8.26.0100","0043877-64.2012.8.26.0100","1013689-61.2018.8.26.0100"))#> [1] "10257360920148260100" "00438776420128260100" "10136896120188260100"Example 2:
# Extract components from IDabjutils::extract_parts(c("1025736-09.2014.8.26.0100","0043877-64.2012.8.26.0100","1013689-61.2018.8.26.0100"))#> [[1]]#> N D A J T O#> "1025736" "09" "2014" "8" "26" "0100"#>#> [[2]]#> N D A J T O#> "0043877" "64" "2012" "8" "26" "0100"#>#> [[3]]#> N D A J T O#> "1013689" "61" "2018" "8" "26" "0100"Example 3:
# Remove diacritics from stringabjutils::rm_accent("acórdão")#> [1] "acordao"{abjutils} requires R >= 3.6.
{abjutils} is licensed underMIT + fileLICENSE