使用httr R包的POST请求

Question

multer docs

对不起，我英语不好。 我想将此“ http”代码更改为“ R”，并希望支持UTF-8 我使用了post函数，但失败了

library(httr)
result <- POST("https://api.dialogflow.com/v1/query?v=20150910",user_agent= c(encode="json",add_headers(Authorization= 'Bearer 0a0106569a224e99bad7e4__________'),accept_json()),body='context')
print(result)

##Response
Response [https://api.dialogflow.com/v1/query?v=20150910]
  Date: 2019-08-25 16:16
  Status: 403
  Content-Type: text/plain; charset=utf-8
  Size: 101 B


  [1]: https://i.stack.imgur.com/DXPb2.png