Type:	Package
Title:	Useful Tools for Jurimetrical Analysis Used by the Brazilian Jurimetrics Association
Version:	0.3.2
Date:	2022-01-31
Description:	The Brazilian Jurimetrics Association (ABJ in Portuguese, see https://abj.org.br/ for more information) is a non-profit organization which aims to investigate and promote the use of statistics and probability in the study of Law and its institutions. This package implements general purpose tools used by ABJ, such as functions for sampling and basic manipulation of Brazilian lawsuits identification number. It also implements functions for text cleaning, such as accentuation removal.
License:	MIT + file LICENSE
URL:	https://github.com/abjur/abjutils
Depends:	R (≥ 3.6)
Imports:	dplyr, magrittr, purrr, rlang, rstudioapi, stringi, stringr, tidyr
Suggests:	testthat
Encoding:	UTF-8
RoxygenNote:	7.1.2
NeedsCompilation:	no
Packaged:	2022-01-31 20:50:52 UTC; clente
Author:	Caio Lente [aut, cre], Julio Trecenti [aut], Katerine Witkoski [ctb], Associação Brasileira de Jurimetria [cph, fnd]
Maintainer:	Caio Lente <clente@abj.org.br>
Repository:	CRAN
Date/Publication:	2022-02-01 07:50:16 UTC

Pipe operator

Description

See magrittr::%>% for details.

Usage

lhs %>% rhs

Add separators to lawsuit IDs

Description

Add separators to lawsuit IDs

Usage

build_id(id)

Arguments

Calculate digits for Brazilian lawsuit identification numbers

Description

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

Usage

calc_dig(num, build = FALSE)

Arguments

Value

The check digits or the complete identification number

Examples

{
  calc_dig("001040620018260004", build = TRUE)
  calc_dig("001040620018260004", build = FALSE)
}

Add separators to CARF lawsuits

Description

Add separators to CARF lawsuits

Usage

carf_build_id(id)

Arguments

Calculate check digit for CARF

Description

Returns the check digit of a CARF number or full number with the check digit.

Usage

carf_calc_dig(id, build = FALSE, verify = TRUE)

Arguments

Value

The check digits or the complete identification number

Examples

{
  carf_calc_dig("10120.008427/2003", build = TRUE)
  carf_calc_dig("15374.002430/99", build = FALSE)
  carf_calc_dig(c("101200084272003", "1537400243099"))
}

Validate check digits for Brazilian lawsuits identification number

Description

Verifies if a check digit is correct

Usage

carf_check_dig(id)

Arguments

Value

Whether or not the check digit is well calculated

Examples

{
  carf_check_dig("10120.008427/2003-02")
  carf_check_dig(c("10120008427200302", "10766.000511/96-12"))
}

Validate check digits for Brazilian lawsuits identification number

Description

Verifies if a check digit is correct

Usage

check_dig(num)

Arguments

Value

Whether or not the check digit is well calculated

Examples

{
  check_dig("0005268-75.2013.8.26.0100")
}

Validate check digits for Brazilian lawsuits identification number on vectors.

Description

Verifies if a check digit is correct

Usage

check_dig_vet(num)

Arguments

Value

Whether or not the check digit is well calculated

Examples

{
  check_dig_vet(c("0005268-75.2013.8.26.0100", "0004122-85.2010.6.16.0100"))
}

Convert Chrome's Query String Parameters to a list

Description

To use this function, simply copy the Query String Parameters returned by Chrome when analyzing the network flow of a web page. Paste these QSPs into an R string with double quotes (as you would to create any string) and pass it to chrome_to_body(); the function will print to the console a formatted command that creates a list with the QSPs. This list works perfectly with httr::GET() and httr::POST() so that you can easily reproduce a website's behavior.

Usage

chrome_to_body(x)

Arguments

See Also

httr::GET(), httr::POST()

Clean a cnj number.

Description

Remove all non-numeric character from a string

Usage

clean_cnj(x)

Arguments

Remove separators from lawsuit IDs

Description

Remove separators from lawsuit IDs

Usage

clean_id(id)

Arguments

Escape accented characters in a document

Description

This function is used by the "Escape Unicode" add-in and removes all accented characters from the current file, replacing them by their equivalent Unicode-escaped values.

Usage

escape_unicode()

Extract different parts from lawsuit ID

Description

Given one or more lawsuit IDs, this function extracts one or more parts of the IDs given the following correspondence:

• "N": number

• "D": verification digits

• "A": year

• "J": segment

• "T": court

• "O": origin

• "": all of the above

Usage

extract_parts(id, parts = "")

Arguments

Examples

## Not run: 
extract_parts("001040620018260004", "N")
extract_parts("001040620018260004", c("N", "A", "O"))

## End(Not run)

Extract file name without extension

Description

Extract file name without extension

Usage

file_sans_ext(x)

Arguments

Gather subjects from esaj::cjsg_table("subjects")

Description

Once you run esaj::cjsg_table("subjects"), you can use this function to gather the subjects automatically. Download esaj by running devtools::install_github("courtsbr/esaj").

Usage

gather_subjects(subjects)

Arguments

Improved list of objects

Description

Elegantly list objects in a R session.

Usage

lsos(
  pos = 1,
  pattern,
  order.by = "Size",
  decreasing = TRUE,
  head = TRUE,
  n = 10
)

Arguments

References

http://stackoverflow.com/questions/1358003/tricks-to-manage-the-available-memory-in-an-r-session

Regex pattern for finding lawsuit numbers

Description

Regex pattern for finding lawsuit numbers

Usage

pattern_cnj()

Mirror of scales:::precision()

Description

Mirror of scales:::precision()

Usage

precision(x)

Arguments

Convert Brazilian currency values (text) to numeric

Description

Convert Brazilian currency values (text) to numeric

Usage

reais(x)

Arguments

Remove accentuation

Description

Remove accented characters from strings converting them to ASCII.

Usage

rm_accent(x)

Arguments

Value

A version of x without non-ASCII characters

Generate sample Brazilian lawsuit identification numbers

Description

Returns a data frame containing a random sample of lawsuit numbers distributed according to some regional and jurisdictional parameters. The implementation supports both vector and scalar parameters, depending whether or not the function should uniformly sample from a scope of lawsuit numbers or one should define the parameters for each sample unit.

Usage

sample_cnj(
  n,
  foros,
  anos,
  orgao,
  tr,
  first_dig = "0",
  sample_pars = TRUE,
  return_df = TRUE
)

Arguments

Value

A data frame or a vector containing a random sample of lawsuits IDs

Examples

{
  # sampling the parameters
  sample_cnj(3,
    foros = "0000",
    anos = "2015", orgao = 8, tr = 26,
    first_dig = "0", sample_pars = TRUE, return_df = FALSE
  )

  sample_cnj(10,
    foros = c("0000", "0001"),
    anos = c("2014", "2015"), orgao = 8, tr = 26,
    first_dig = "0", sample_pars = TRUE, return_df = FALSE
  )

  # not sampling the parameters

  sample_cnj(3,
    foros = c("0000", "0001", "0002"),
    anos = c("2014", "2015", "2016"), orgao = rep(8, 3), tr = rep(26, 3),
    first_dig = "0", sample_pars = FALSE, return_df = FALSE
  )
}

Separate a lawsuit ID column into its parts

Description

Wrapper around tidyr::separate() that splits a column with lawsuit IDs into 6 columns with its parts (see extract_parts()). Note that the IDs must be built (see build_id()).

Usage

separate_cnj(data, col, ...)

Arguments

Produce frequency and relative frequency tables

Description

Produces a contingency table of the elements of a vector calculating relative frequencies as well.

Usage

tabela(x, label = "variavel")

Arguments

Value

A data frame containing frequency and relative frequencies for the levels of x

Tests a function by checking if its arguments are declared

Description

This function verifies whether all of the arguments of another function already have assigned values. If an argument has a default value but there isn't a corresponding variable, it creates that variable.

Usage

test_fun(f, force_default = FALSE)

Arguments

Examples

## Not run: 
f <- function(a, b = 3) {
  a * b
}

test_fun(f)
a
b

b <- 5
test_fun(f)
a
b

test_fun(f, TRUE)
a
b

a <- 2
test_fun(f)
a
b

## End(Not run)

Validate Brazilian lawsuits identification number on vectors.

Description

Verifies if a Brazilian lawsuit identification is a cnj number.

Usage

verify_cnj(cnj)

Arguments

Value

Whether or not the check digit is well calculated

Shortcut to write file to "data/" directory from a pipe

Description

Shortcut to write file to "data/" directory from a pipe

Usage

write_data(x, name, dir = "data/")

Arguments