Eu estou tentanto fazer o scrape do sistema mediador Ministério do Trabalho. Basicamente, eu quero a relação dos acordos e convenções coletivos:
url1<-"http://www3.mte.gov.br/sistemas/mediador/ConsultarInstColetivo"
Uma vez que eu acesso essa página, eu chego no formulário de busca. Eu optei apenas por selecionar a vigência: "Todos" e a UF de registro: "SE"
Ao clicar, eu tenho acesso ao XHR:
url2<-"http://www3.mte.gov.br/sistemas/mediador/ConsultarInstColetivo/getConsultaAvancada"
E ao body:
str(body)
List of 27
$ nrCnpj : chr ""
$ nrCei : chr ""
$ noRazaoSocial : chr ""
$ dsCategoria : chr ""
$ tpRequerimento : chr "acordo"
$ tpRequerimento : chr "acordoColetivoEspecificoPPE"
$ tpRequerimento : chr "acordoColetivoEspecificoDomingosFeriados"
$ tpRequerimento : chr "convencao"
$ tpRequerimento : chr "termoAditivoAcordo"
$ tpRequerimento : chr "termoAditivoConvecao"
$ tpRequerimento : chr "termoAditivoAcordoEspecificoPPE"
$ tpRequerimento : chr "termoAditivoAcordoEspecificoDomingoFeriado"
$ tpVigencia : chr "2"
$ sgUfDeRegistro : chr "SE"
$ dtInicioRegistro : chr ""
$ dtFimRegistro : chr ""
$ dtInicioVigenciaInstrumentoColetivo: chr ""
$ dtFimVigenciaInstrumentoColetivo : chr ""
$ tpAbrangencia : chr "Todos os tipos"
$ ufsAbrangidasTotalmente : chr "SE"
$ cdMunicipiosAbrangidos : chr ""
$ cdGrupo : chr ""
$ cdSubGrupo : chr ""
$ noTituloClausula : chr ""
$ utilizarSiracc : chr ""
$ pagina : chr "2"
$ qtdTotalRegistro : chr "1740"
Em seguida, eu fiz o seguinte para acessar os resultados:
library(httr)
a<-GET(url1)
b<-POST(url2,body=body,set_cookies(unlist(a$cookies)))
Mas infelizmente a resposta não retorna os resultados esperados.
url2
não funciona... Para que ele funcione corretamente vc precisa acessar os filtros a partir deurl1