带有 httr 的 R POST API 请求返回错误请求

Question

希望使用 R 中的 httr 包实现以下 POST 请求和 curl

curl 'https://api.openfigi.com/v2/mapping' \
--request POST \
--header 'Content-Type: application/json' \
--data '[{"idType":"ID_WERTPAPIER","idValue":"851399","exchCode":"US"}]'

基于这个Git issue我试过了：

library(jsonlite)
library(rjson)
#> 
#> Attaching package: 'rjson'
#> The following objects are masked from 'package:jsonlite':
#> 
#>     fromJSON, toJSON
library(httr)

url = 'https://api.openfigi.com/v2/mapping'

body1 = list(
  idType = jsonlite::unbox('ID_WERTPAPIER'),
  idValue = jsonlite::unbox('851399'),
  exchCode = jsonlite::unbox('US')
)
r = httr::POST(url, body = body1, encode = 'json', verbose())

body2 = rjson::toJSON(list(
  idType = "ID_WERTPAPIER",
  idValue = "851399",
  exchCode = "US"
))

r = httr::POST(url, body = body2, encode = "form", verbose())

^{由reprex package (v0.3.0) 于 2019 年 8 月 26 日创建}

但两者都是错误的请求。

Answer 1

如果您只翻译 curl，以下内容似乎有效。够了吗？

require(httr)

headers = c(
  `Content-Type` = 'application/json'
)

data = '[{"idType":"ID_WERTPAPIER","idValue":"851399","exchCode":"US"}]'

r <- httr::POST(url = 'https://api.openfigi.com/v2/mapping', httr::add_headers(.headers=headers), body = data)
print(r$status_code)