在R中调用API（httr包）

Question

希望你能帮助我，我不是集成方面的专家:)

有一个名为“社交面包师”的系统（文档：https://api.socialbakers.com），我尝试在其中获取一些数据。我有一个令牌，一个秘密，我认为我做对了第一部分。

我只是尝试使用此代码片段进行连接：

library(httr)

req <- GET("https://api.socialbakers.com/0/facebook/profiles", 
       authenticate("token", "secret", type = "basic"))
stop_for_status(req)
content(req)

这非常有效。我有一个 JSON 响应，可以将其解析为表格。 我的问题是关于另一个这样的网址：

library(httr)

req <- GET("https://api.socialbakers.com/0/facebook/metrics", 
       authenticate("token", "secret", type = "basic"))
stop_for_status(req)
content(req)

同样的代码，不再起作用，返回

代码 405 HTTP 方法无效

我不确定我做得是否正确，文档的某些部分说我必须在标头上使用base64，但为什么在第一部分中工作？一些建议将非常感激:)

编辑：

已解决：在这种情况下，与 API 交互的正确方法是使用 POST 方法将参数发送到服务。

使用了以下代码片段。

library(httr)
library(RCurl)
library(jsonlite)

doc <- POST("https://api.socialbakers.com/0/facebook/metrics",
        authenticate("user",
                     "pass",
                     type = "basic"), 
        body = list(
          date_start = "2016-01-11",
          date_end = "2016-01-12",
          profiles = c("12345", "123456"),
          metrics = c("fans_count_lifetime", "fans_change"))
        , encode = "json")
stop_for_status(doc)
content(doc)

Answer 1

在这种情况下，与 API 交互的正确方法是使用 POST 方法将参数发送到服务。

使用了以下代码片段。

library(httr)
library(RCurl)
library(jsonlite)

doc <- POST("https://api.socialbakers.com/0/facebook/metrics",
    authenticate("user",
                 "pass",
                 type = "basic"), 
    body = list(
      date_start = "2016-01-11",
      date_end = "2016-01-12",
      profiles = c("12345", "123456"),
      metrics = c("fans_count_lifetime", "fans_change"))
    , encode = "json")
stop_for_status(doc)
content(doc)enter code here