Question

我在尝试使用 HTTR 包发送 JSON POST 时遇到困难。这与 Replicate a POST request with Python or browser 上出现的问题完全相同，但这次是在 R 上。

url <- "https://www.rad.cvm.gov.br/ENET/frmConsultaExternaCVM.aspx/ListarDocumentos"
payload <- list(
    dataDe= '', 
    dataAte= '' , 
    empresa= '', 
    setorAtividade= '-1', 
    categoriaEmissor= '-1', 
    situacaoEmissor= '-1', 
    tipoParticipante= '-1', 
    dataReferencia= '', 
    categoria= 'EST_3', 
    periodo= '1', 
    horaIni= '', 
    horaFim= '', 
    palavraChave='',
    ultimaDtRef='false', 
    tipoEmpresa='0'
)

这将返回与我使用以下 POST 请求获得的不同的 JSON 响应：

library(httr)
library(jsonlite)
   
r <- POST( url = url,
           body = toJSON(payload, auto_unbox = T))

此请求返回网页的 HTML 内容，而不是所需的响应。

    {html_document}
<html xmlns="http://www.w3.org/1999/xhtml">
[1] <head id="Head1">\n<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">\n<link href="App_Themes/CVM/Calend ...
[2] <body>\r\n    <form name="Form1" method="post" action="frmConsultaExternaCVM.aspx" id="Form1">\r\n<input type="hidden" na ...

我尝试了多种组合，使用不同形式的写入请求有效负载并在 POST 请求中使用这些术语：

    httr::content_type_json()
    httr::accept_json()
    encode = "json"

但似乎什么都行。如有任何帮助，我将不胜感激！

难以发送 JSON httr POST 请求

0 个答案: