2

我尝试使用 R 连接到 Facebook。我尝试使用来自

https://github.com/datamgmt/facebook-data-mining

使用以下代码获取用户信息：

access.token<- "AAACE________n6bcITRIMCZCKhMySOV" #my access token
FacebookFetch <- function(access.path = "me", access.token, access.options) {
      if (missing(access.options)) {
        access.options <- ""
      }
      else {
        access.options <- sprintf("?%s", paste(names(access.options), "=", 
                                               unlist(access.options), collapse = "&", sep = ""))
      }
      data <- getURL(sprintf("https://graph.facebook.com/%s%s&access_token=%s", 
                             access.path, access.options, access.token),cainfo="cacert.pem")
      fromJSON(data)
    }

individual.id <- "100__72"  # my ID

individual <- FacebookFetch(access.path=paste(individual.id),access.token=access.token )
if (length(individual$id)) {
  cat ("Working with individual: ",individual$name," (",individual$id,")\n", sep="")
} else{
  cat("Message: ", unlist(individual)[1], "\n")
  cat("Type:    ", unlist(individual)[2], "\n")
  cat("Code:    ", unlist(individual)[3], "\n")
  stop("   Cannot continue")
}

where cainfo="cacert.pem" is added to work around the SSL certificate verification error.

虽然现在我收到以下错误，但我不知道如何解决这个问题。

Message:  (#803) Some of the aliases you requested do not exist: 100__72&access_token=AAACE________n6bcITRIMCZCKhMySOV 
Type:     OAuthException 
Code:     803

我发现一些帖子中人们遇到了同样的问题，只是不使用 R，而是使用其他程序，通过使令牌和 id 成为字符来解决问题。但是，在 R 中，这些已经具有类特性。

当我在浏览器中重新创建 url 时，它返回相同的错误，而图形浏览器返回所有正确的信息。我曾多次尝试刷新令牌，但没有奏效。API 参考书没有说明错误代码 803 的含义。

有人知道如何解决这个问题吗？我在 Windows 7 pro 上的 Rstudio 中使用 r 2.15.2（也在 windows vista 上尝试过）

4

0 回答 0