使用 httr 的 POST 请求后内容类型无效

Question

我正在尝试使用法国公共就业服务中心 (Pôle Emploi) 提供的名为“Offres d'emploi v2”（职位空缺）的 API。 API 描述为here。在here 描述的过程中，使用 API 需要令牌和通过 OAuth v2 进行的身份验证。

我正在使用 R 3.5.0 和 httr 1.3.1。首先，我指定请求正文。 eeid 和 eesec 是我注册时 Pôle Emploi 提供的标识符和密钥。

require(jsonlite)
require(httr)

request_body <- list(
   grant_type = "client_credentials",
   client_id = eeid,
   client_secret = eesec,
   scope = paste(
      "api_offresdemploiv2",
      "o2dsoffre",
      paste0("application_",eeid,"%20api_offresdemploiv2"), sep = " "))

然后，我运行 POST 请求：

result_auth <- POST(
    "https://entreprise.pole-emploi.fr/connexion/oauth2/access_token",
    realm = "/partenaire",
    body = request_body,
    add_headers('Content-Type'='application/x-www-form-urlencoded')
    )
result_auth
content(result_auth)

返回有关内容类型的错误：

> result_auth
Response [https://entreprise.pole-emploi.fr/connexion/oauth2/access_token]
  Date: 2018-09-29 14:33
  Status: 400
  Content-Type: application/json; charset=UTF-8
  Size: 70 B
> content(result_auth)
$error
[1] "invalid_request"

$error_description
[1] "Invalid Content Type"

我还尝试将add_headers('Content-Type'='application/x-www-form-urlencoded') 行替换为content_type("application/x-www-form-urlencoded")，但我收到相同的错误消息。

我显然在这里做错了什么，但是什么？谢谢你的帮助。

Answer 1

这是直接在@hrbrmstr 评论之后的答案。非常感谢他。

不应将内容类型指定为标头，而应在POST 函数中使用encode = "form" 选项。

请注意，eeid 和 eesec 是 Pôle Emploi 在注册时提供的标识符和密钥。完整的脚本如下所示。

require(jsonlite)
require(httr)

request_body <- list(
    grant_type = "client_credentials",
    client_id = eeid,
    client_secret = eesec,
    scope = paste(
"api_offresdemploiv2",
"o2dsoffre",
paste0("application_",eeid), sep = " "))

result_auth <- POST(
    "https://entreprise.pole-emploi.fr/connexion/oauth2/access_token",
    query = list(realm = "/partenaire"),
    body = request_body,
    encode = "form"
    )