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でも試しました）