Visão Geral

abjutils is a toolkit with some useful functions created by the Brazilian Jurimetrics Association (Associação Brasileira de Jurimetria).

Most functions help with identifying lawsuit IDs as specified by the National Justice Council (Conselho Nacional de Justiça): NNNNNNN-DD.AAAA.J.TR.OOOO. The rest helps with ASCII and other formatting problems.

Installation

You can install the most recent version of abjutils with:

# CRAN
install.packages("abjutils")

# GitHub (dev)
install.packages("remotes")
remotes::install_github("abjur/abjutils")

Functions

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 to data/

Usage

Example 1:

# Remove separators from ID
abjutils::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 ID
abjutils::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 string
abjutils::rm_accent("acórdão")
#> [1] "acordao"

Dependencies

abjutils requires R >= 3.6.

License

abjutils is licensed under MIT + file LICENSE