在R的httr包中使用oauth2.0令牌和JSON正文

Question

我正在尝试使用json格式的查询来查询具有Auth2.0令牌（已经获得）的API。内容类型为application/json。

r <- POST(url, body = "query.json", encode = "json", add_headers(Authorization = paste("Bearer", token, sep = " ")))

带有httr的question on auth2.0 tokens几乎可以回答这个问题，但是我仍然得到状态500，内容类型：未知。

我基本上想创建一个这样的请求URL

    curl \
  -H "Authorization: Bearer eyJhbGciOi…" \
  -H "Content-Type: application/json" \
  -X POST \
  -d '{ "where": { "mention": { "entity": "xyz" } } }' \
  https://api.something.com/search

我如何使用httr构造它？