Exemplo de requisição do tjsp

requisicao_tjsp.R

## Script para baixar a consulta de julgados de primeiro grau do TJSP


### Url da consulta
x <- "http://esaj.tjsp.jus.br/cjpg/pesquisar.do;jsessionid=BCB24A785FABE7F341130EEC4B9722F7.cjpg2?conversationId=&dadosConsulta.pesquisaLivre=contratos&tipoNumero=UNIFICADO&numeroDigitoAnoUnificado=&foroNumeroUnificado=&dadosConsulta.nuProcesso=&dadosConsulta.nuProcessoAntigo=&classeTreeSelection.values=&classeTreeSelection.text=&assuntoTreeSelection.values=&assuntoTreeSelection.text=&agenteSelectedEntitiesList=&contadoragente=0&contadorMaioragente=0&cdAgente=&nmAgente=&dadosConsulta.dtInicio=&dadosConsulta.dtFim=&varasTreeSelection.values=&varasTreeSelection.text=&dadosConsulta.ordenacao=DESC"

### Pacotes necesários
library(httr)

remotes::install_github("courtsbr/JurisMiner") ## Paço desnecessário  se já instalou

library(JurisMiner)

### Parseando a url

url_parseada <- parse_url(x)

url_parseada

### Realizando a requisição com o método GET

r1 <- GET(x, write_disk("r1.html"))
          
### Altere para dano moral
url_parseada$query$dadosConsulta.pesquisaLivre <- "dano moral"


### reconstrua a url

x <- build_url(url_parseada)

### Faça a requisição e baixe os html. Em seguida, abra o html para verificar se realmente foi baixado.

r2 <- GET(x, write_disk("r2.html"))