{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.
You can install the most recent version of {abjutils} with:
# CRAN
install.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 to data/
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"
{abjutils} requires R >= 3.6.
{abjutils} is licensed under MIT + file LICENSE
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4