如何在R中发布具有标题和API的API杰森的身体

Question

如何在R

中调用API Post

请求网址 https://westus.api.cognitive.microsoft.com/text/analytics/v2.0/sentiment

请求标题 Ocp-Apim-Subscription-Key =某个值＆amp; Content-Type = application / json

正文应用程序/ json

{
  "documents": [
    {
      "language": "string",
      "id": "string",
      "text": "string"
    }
  ]
}

请帮助!!!

Answer 1

以下是示例 -

request_body <- data.frame(
language = c("en","en"),
id = c("1","2"),
text = c("This is wasted! I'm angry","This is awesome! Good Job Team! appreciated")
)

将请求正文（Dataframe）转换为请求正文（JSON）

require(jsonlite)
request_body_json <- toJSON(list(documents = request_body), auto_unbox = TRUE)

下面我们调用API（使用add_headers添加请求标头）

require(httr)
result <- POST("https://westus.api.cognitive.microsoft.com/text/analytics/v2.0/sentiment",
body = request_body_json,
add_headers(.headers = c("Content-Type"="application/json","Ocp-Apim-Subscription-Key"="my_subscrition_key")))
Output <- content(result)

显示输出

输出