R httr 包 - 向带有正文的 API 发出 POST 请求

Question

我尝试向我的 API 发出发布请求。在 Postman 中是这样的：

发布： http://localhost:5000/api/login
身体： {"secret": "bla"}

这给了我一个可以正常工作的访问令牌。我对httr packge 进行了同样的尝试，如下所示：

login <- list(
  secret = "bla"
)

httr::POST("http://localhost:5000/api/login", body = login, verbose(), content_type("application/json"))

这是详细输出，我不知道为什么会返回 400 错误。

-> POST /api/login HTTP/1.1
-> Host: localhost:5000
-> User-Agent: libcurl/7.64.1 r-curl/4.3 httr/1.4.1
-> Accept-Encoding: deflate, gzip
-> Accept: application/json, text/xml, application/xml, */*
-> Content-Length: 145
-> Content-Type: application/json; boundary=------------------------a4dc23f1d3e7221e
-> 
>> --------------------------a4dc23f1d3e7221e
>> Content-Disposition: attachment; name="secret"
>> 
>> bla
>> --------------------------a4dc23f1d3e7221e--

<- HTTP/1.0 400 BAD REQUEST
<- Content-Type: application/json
<- Content-Length: 91
<- Access-Control-Allow-Origin: *
<- Server: Werkzeug/1.0.0 Python/3.7.6
<- Date: Tue, 13 Oct 2020 15:14:54 GMT

我做错了什么？

Answer 1

尽量确保正文是 json 字符向量而不是 r 列表。

httr::POST("http://localhost:5000/api/login", body = jsonlite::toJSON(login), verbose(), content_type("application/json"))