Skip to content

Instantly share code, notes, and snippets.

View jjesusfilho's full-sized avatar
🏠
Working from home

José de Jesus Filho jjesusfilho

🏠
Working from home
View GitHub Profile
library(magrittr)
#url
u <- 'http://pesquisajuris.tjdft.jus.br/IndexadorAcordaos-web/sistj?visaoId=tjdf.sistj.acordaoeletronico.buscaindexada.apresentacao.VisaoBuscaAcordao&controladorId=tjdf.sistj.acordaoeletronico.buscaindexada.apresentacao.ControladorBuscaAcordao&visaoAnterior=tjdf.sistj.acordaoeletronico.buscaindexada.apresentacao.VisaoBuscaAcordao&nomeDaPagina=resultado&comando=abrirDadosDoAcordao&enderecoDoServlet=sistj&historicoDePaginas=buscaLivre&quantidadeDeRegistros=20&baseSelecionada=BASE_ACORDAO_TODAS&numeroDaUltimaPagina=1&buscaIndexada=1&mostrarPaginaSelecaoTipoResultado=false&totalHits=1&internet=1&numeroDoDocumento=1005250'
# usei html session pra economizar codigo de escrever o form inteiro
s <- rvest::html_session(u)
form <- rvest::html_form(s)[[1]] %>%
rvest::set_values(comando = 'downloadInteiroTeor')
s <- rvest::submit_form(s, form)
@jjesusfilho
jjesusfilho / execucao_penal.R
Last active March 19, 2018 23:57
Script para extrair dados da execução penal
library(httr)
library(xml2)
### Função para converter o form em lista
post_form<-function(form){
form<-stringr::str_split(form,"\n")
form<-unlist(form)
nomes<-stringi::stri_extract_first_regex(form,".*(?=:)",omit_no_match=F)
valores<-stringi::stri_extract_first_regex(form,"(?<=:).*",omit_no_match=F)
nomes<-as.list(nomes)
@jjesusfilho
jjesusfilho / tadeu.R
Last active February 7, 2018 17:11
Script com Tadeu
library(tjsp)
library(tidyverse)
library(stringr)
### Baixar dados de primeiro grau
### Fazer a busca na página do TJ: julgados de primeiro grau, copiar a url e colá-la aqui.
@jjesusfilho
jjesusfilho / mediador_meta.R
Last active April 30, 2017 21:51
Extrai metadados do sistema mediador do Ministério do Trabalho
library(RCurl)
library(XML)
library(stringi)
mediador_meta<-function(livre="",uf="",cnpj=""){
url1<-"http://www3.mte.gov.br/sistemas/mediador/ConsultarInstColetivo"
url2 <- "http://www3.mte.gov.br/sistemas/mediador/ConsultarInstColetivo/getConsultaAvancada"
## Cria a handle, configura as opções do request e realiza o primeiro request, salvando os cookies para posteriores requests.
curl = getCurlHandle()
@jjesusfilho
jjesusfilho / mediador_inteiro_teor.R
Last active May 1, 2017 04:53
Função para baixar o inteiro teor dos acordos e convenções coletivos do sistema mediador do Ministério do Trabalho
library(RCurl)
library(XML)
library(stringi)
mediador_inteiro_teor<-function(solicitacao,download=TRUE,vector=TRUE){
url<-paste0("http://www3.mte.gov.br/sistemas/mediador/Resumo/ResumoVisualizar?NrSolicitacao=",solicitacao)
## Cria um objeto a parte para usá-lo a fim de nomear os arquivos a serem baixados
s<-as.character(solicitacao)
@jjesusfilho
jjesusfilho / number_br.R
Created May 1, 2017 04:56
Converte cifras para
number_br<-function(str){
str<-stringr::str_replace_all(str,"\\.","")
str<-stringr::str_replace_all(str,",",".")
str<-stringr::str_trim(str)
num<-as.numeric(str)
return(num)
}
structure(list(dados.buscaInteiroTeor = "feminista", dados.pesquisarComSinonimos = "S",
dados.pesquisarComSinonimos = "S", dados.buscaEmenta = "",
dados.nuProcOrigem = "", dados.nuRegistro = "", agenteSelectedEntitiesList = "",
contadoragente = "0", contadorMaioragente = "0", codigoCr = "",
codigoTr = "", nmAgente = "", juizProlatorSelectedEntitiesList = "",
contadorjuizProlator = "0", contadorMaiorjuizProlator = "0",
codigoJuizCr = "", codigoJuizTr = "", nmJuiz = "", classesTreeSelection.values = "",
classesTreeSelection.text = "", assuntosTreeSelection.values = "",
assuntosTreeSelection.text = "", comarcaSelectedEntitiesList = "",
contadorcomarca = "0", contadorMaiorcomarca = "0", cdComarca = "",
function(url) {
arq_img<-"amor.png"
arq_aud<-"amor_mpg"
folder_img <- dirname(arq_img)
folder_aud <- dirname(arq_aud)
httr::handle_reset('https://esaj.tjsp.jus.br/cjsg')
u0<-url
r0 <- httr::GET(u0)
u_aud <- 'https://esaj.tjsp.jus.br/cjsg/somCaptcha.do'
u_img <- 'https://esaj.tjsp.jus.br/cjsg/imagemCaptcha.do'
@jjesusfilho
jjesusfilho / tjrjSG_meta.R
Last active June 28, 2017 17:01
função para extrair jurisprudência do TJRJ
tjrjSG_meta<-function(BuscaLivre,quoted=TRUE){
if(quoted==TRUE){
BuscaLivre<-BuscaLivre %>%
str_replace_all("\\s+","+") %>%
deparse()
}
url<-"http://www.tjrj.jus.br/search?site=juris&client=juris&output=xml_no_dtd&proxystylesheet=juris"
@jjesusfilho
jjesusfilho / rais.R
Last active June 13, 2024 15:33
Baixa os microdados da rais
## Extrai os dados da rais com base na UF, no CNAE 2.0, no CBO e no Ano.
## O único argumento necessário é o ano. No entanto, a menos que sua memória ram tenha ao menos
rais<-function(uf=NULL,CNAE="",CBO="",ano=NULL){
stopifnot(length(ano)==1,is.numeric(ano))
u<-paste0("ftp://ftp.mtps.gov.br/pdet/microdados/RAIS/",ano,"/")
h <- curl::new_handle(dirlistonly=TRUE)
con <- curl::curl(u, "r", h)
tbl <- read.table(con, stringsAsFactors=FALSE, fill=TRUE)
close(con)