R语言 用httr包中POST 请求数据 返回 ：400

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. library("httr")
   
2. headers <- c(
   
3.   "Content-Type" = "application/x-www-form-urlencoded; charset=UTF-8",
   
4.   "Accept" = "application/json, text/javascript, */*; q=0.01",
   
5.   "Accept-Language" = "zh-CN",
   
6.   "Accept-Encoding" = "gzip, deflate",
   
7.   "User-Agent" = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.2; WOW64; Trident/7.0; .NET4.0C; .NET4.0E)",
   
8.   "X-Requested-With" = "XMLHttpRequest"
   
9. )
   
10. 
    
11. 
    
12. GetCurrentCarList_url <- "http://59.175.135.157:8088/TopGps/Public/GetCurrentCarList" # 获取车辆明细
    
13. 
    
14. cookies <- "gc****************qsm0"
    
15. 
    
16. payload <- list('orgId' = 0,
    
17.                 'hasChild' = 1
    
18.                )      # GetCurrentCarList body
    
19. 
    
20. GetCurrentCarList <- POST(GetCurrentCarList_url, add_headers(.headers = headers), set_cookies(.cookies = cookies), body = payload, encode ="form")

复制代码

POST(GetCurrentCarList_url, add_headers(.headers = headers), set_cookies(.cookies = cookies), body = payload, encode ="form")   是不是post写法 哪里出错， 运行后返回 status code：400

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：post TTR R语言 POS 求数据 httr POST

检查一下你提交的数据类型和后台要求的一致性

菊花冰糖水 发表于 2018-3-9 09:50
检查一下你提交的数据类型和后台要求的一致性

我先用Postman测试 post提交成功获取到数据后， 复制Postman里的post相关参数；

在R中 post就不成功

折腾成功了

在content返回的数据，postman里是返回的json
R post后 返回的是 ：content：raw[1:7533] 7b 52 6f 77...   （二进制格式）？？？

我用 ：
r <- content(GetCurrentCarList, "raw")
writeBin(r, "myfile.txt")  

这个应该是直接返回 json格式， 还是 要用 jsonlist包再转换？？？

raw里面的数据会是压缩数据吗？

fcfc2013 发表于 2018-3-9 18:04
raw里面的数据会是压缩数据吗？

raw 是R语言 的一种类型；

fcfc2013 发表于 2018-3-9 16:28
折腾成功了

在content返回的数据，postman里是返回的json

r是一个raw类型，用rawToChar先做转换，再用fromJSON做数据转换
library(rjson)
tmp <- fromJSON(rawToChar(r))