Julio Trecenti jtrecenti

🎯

Focusing

PhD in statistics. Part time professor at @Insper. Data scientist at @abjur Partner at @curso-r Partner at @terranova

jtrecenti / 04-stringr.R

Created October 1, 2024 23:33


	library(tidyverse)

	link_dados <- "https://github.com/jtrecenti/main-cdad2/releases/download/data/camaras.csv"

	camaras <- read_csv(link_dados)

	glimpse(camaras)

	camaras$ementa[2]

jtrecenti / scraper_consumidor_gov.R

Created September 23, 2024 21:51

	u <- "https://consumidor.gov.br/pages/indicador/relatos/consultar"

	parametros <- list(
	indicePrimeiroResultado = 0,
	palavrasChave = "",
	segmentoMercado = 4,
	fornecedor = "",
	regiao = "",
	area = "",
	assunto = "",

jtrecenti / baton.R

Created September 14, 2024 14:52

jtrecenti / exemplo_download.R

Last active August 2, 2024 00:24



	# install.packages("remotes")
	# remotes::install_github("jjesusfilho/tjsp")

	# processo a ser acessado
	processo <- "15012667120228260617"

	# autenticação: precisa fazer uma vez por sessão, apenas
	tjsp::autenticar("CPF", "SENHA")

jtrecenti / consumidor.r

Created May 22, 2024 22:51

	tibble::tibble()
	tribunais <- forosCNJ::da_tribunal \|>
	dplyr::filter(id_justica == 8) \|>
	dplyr::pull(sigla) \|>
	tolower()

	endpoints <- glue::glue(
	"https://api-publica.datajud.cnj.jus.br/api_publica_{tribunais}/_search"
	)

jtrecenti / gist:6606f2665ab27fa5deccb88dccfd963d

Created May 20, 2024 20:53

varas_corporativo.R

	# Endpoint for SOAP requests
	endpoint_url <- 'https://www.cnj.jus.br/corregedoria/justica_aberta/ws.php'

	# XML payload, replace the method name and parameters as per actual API
	# This is a simplified example assuming a SOAP method called 'getServentiaJudicial' that accepts 'seq_orgao' as a parameter
	xml_payload <- '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:cor="https://www.cnj.jus.br/corregedoria/justica_aberta/ws.php">
	<soapenv:Header/>
	<soapenv:Body>
	<cor:pesquisarServentiasJudiciais>
	<!--Optional:-->

jtrecenti / exemplo-filter.R

Created February 16, 2024 00:50

	# reciclou mas deu um warning porque não é múltiplo
	tibble::tibble(x = c('a', 'b', 'c')) \|>
	dplyr::filter(x == c('a', 'b'))
	#> Warning: There was 1 warning in `dplyr::filter()`.
	#> ℹ In argument: `x == c("a", "b")`.
	#> Caused by warning in `x == c("a", "b")`:
	#> ! comprimento do objeto maior não é múltiplo do comprimento do objeto menor
	#> # A tibble: 2 × 1
	#> x
	#> <chr>

jtrecenti / pesquisa_sexo_relator.r

Created December 8, 2023 13:48

	# arrumação dos dados para pesquisa

	moral_raw <- readxl::read_excel("moral.xlsx")
	sexual_raw <- readxl::read_excel("sexual.xlsx")

	moral <- moral_raw \|>
	janitor::clean_names() \|>
	dplyr::mutate(
	no_processo_original = no_processo,
	no_processo = abjutils::clean_cnj(no_processo)

jtrecenti / chatgpt-pdf.r

Created December 1, 2023 23:04


	pdf_full <- pdftools::pdf_text("pdf_full.pdf")


	# 33-36, 38-39, 41-46, 48-49, 52-54, 56-61, 63-72, 74-77, 79-83, 85-91, 93-96, 98-100, 102-105

	paginas <- c(
	33:36, 38:39, 41:46, 48:49,
	52:54, 56:61, 63:72, 74:77,
	79:83, 85:91, 93:96, 98:100,

jtrecenti / dados.csv

Created October 6, 2023 23:57

We can make this file beautiful and searchable if this error is corrected: It looks like row 2 should actually have 1 column, instead of 2 in line 1.