Question

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

有一个名为social bakers的系统（doc：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

在R中调用API（httr包）

1 个答案: