我正在尝试通过网络搜索巴西政府页面,我必须填写表格。我按照以下步骤操作:
我填写表格,然后一旦我得到结果,我从XHR复制了url和表格并在R中使用,但没有得到任何东西:
url1<-"http://www3.mte.gov.br/sistemas/mediador/ConsultarInstColetivo"
a<-httr::GET(url1)
url2<-"http://www3.mte.gov.br/sistemas/mediador/ConsultarInstColetivo/getConsultaAvancada"
这是我使用的身体:
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"
然后我执行以下操作来搜索数据:
b<-httr::POST(url2,body=body,httr::set_cookies(unlist(a$cookies)))
但我什么都没得到。
有人知道我做错了吗?