RCurl获取响应正文时，它出错

我只是想获得响应正文时，发布请求失败使用RCurl。当我通过R运行它时，我只收到响应错误，并失败。RCurl获取响应正文时，它出错

Error: Unprocessable Entity

发帖时与用于测试的UI界面同样的请求，它给

{ 
"reason": [ 
    "Can not create Data with Name: DataTest. Data Name should be unique." 
], 
"singleReason": "Can not create Data with Name: DataTest. Data Name should be unique." 
}

如何得到4XX错误响应机构表示赞赏任何帮助。 TIA。

发布请求

postdata.json <- '{"name":"DataTest","description":"Test Payload","algorithm":{"name":"DataTest","version":"0.1.0"}}' 
post.result <- httpPOST(url=SERVER, postfields = postdata.json, verbose = T, 
         httpheader=c(Authorization=access.token, 'Content-Type'='application/json', Accept='application/json'))

RStudio输出

* About to connect() to SERVER port 80 (#0) 
* Trying SERVER... * connected 
* Connected to SERVER port 80 (#0) 
> POST /api/test HTTP/1.1 
Host: SERVER 
Authorization: AUTHENTICATION 
Content-Type: application/json 
Accept: application/json 
Content-Length: 171 

< HTTP/1.1 422 Unprocessable Entity 
< Content-Type: application/json;charset=UTF-8 
< Date: Thu, 13 Nov 2014 16:31:42 GMT 
< Server: Apache-Coyote/1.1 
< Content-Length: 215 
< Connection: keep-alive 
< 
* Connection #0 to host SERVER left intact 
Show Traceback 

Rerun with Debug 
Error: Unprocessable Entity

N.B.我没有问题，并返回一个错误。这是预期的。我只是试图获得与错误代码关联的响应主体。

来源

2014-11-13 Shuo

请提供一个最小可重现的例子来说明您遇到的问题。 – jdharrison

使用'writefunction'和/或'debugfunction'选项，它将被传递给'curlPerform。或者，给** httr **寻找一个稍微简单的界面。 – Thomas

我能够通过添加basicTextGatherer（）和WRITEFUNCTION得到使用RCurl响应主体。

reader <- basicTextGatherer() 
post.result <- httpPOST(url=SERVER, postfields = postdata.json, verbose = T, 
         writefunction = reader$update, 
         httpheader=c(Authorization=access.token, 
             'Content-Type'='application/json', 
             Accept='application/json') 
         ) 
return(body=reader$value())

但哈德利的解决方案更简单的工作，并没有出错。

来源

2014-11-14 17:42:30 Shuo

这里有一个方法与HTTR：

library(httr) 

postdata.json <- '{"name":"DataTest","description":"Test Payload","algorithm":{"name":"DataTest","version":"0.1.0"}}' 

res <- POST(SERVER, 
    body = postdata.json, 
    add_headers(
    Authorization = access.token, 
    'Content-Type' = 'application/json', 
    Accept = 'application/json' 
) 
) 

http_status(res) 
content(res)

来源

2014-11-13 19:40:13 hadley

RCurl获取响应正文时，它出错

回答

相关问题