R + fromJSON - 如何发送标头信息？答案

【问题标题】：R + fromJSON - how to send headers info?R + fromJSON - 如何发送标头信息？
【发布时间】：2016-10-27 15:49:33
【问题描述】：

如何使用fromJSON 发送标头信息？

例如，这是我从服务器请求 json 数据的方式，但服务器将需要我这边的一些身份验证信息。

public_key <- 'VzUZFW1cQzP08ovr5auZbXQduzE';
data <- fromJSON(paste('http://127.0.0.1:3000', "/output/data?public_key=", public_key, sep=""),flatten=TRUE)

fromJSON 或其他包可以吗？

【问题讨论】：

标头信息通常不会进入 JSON。您通常有一个函数将标头和正文 (JSON) 作为同一请求的单独部分发送。
@sebastian-c 有什么例子可以实现这一点吗？
看看这个httr tutorial。它至少应该可以帮助您了解它们是如何分离的。你的问题很难回答，因为它的前提是错误的。

标签： json r http-headers shiny

【解决方案1】：

如果您想在请求中包含额外的 http 标头，您应该使用不同的方法来获取 url 内容，并在响应中使用 fromJSON。

在 Bing Web Search API 上使用 httr 包的示例：

library(httr)
library(jsonlite)
QUERY = "your search query here..."
API_KEY = "your api key here...."
url = paste0("https://api.cognitive.microsoft.com/bing/v5.0/search?",
"mkt=en-US&setLang=en-US&responseFilter=Webpages&textDecorations=false&textFormat=Raw&q=",
QUERY)
httpResponse <- GET(url, add_headers("Ocp-Apim-Subscription-Key" = API_KEY), accept_json())
results = fromJSON(content(httpResponse, "text"))

【讨论】：