Question

我正试图在R中制作一些我的脸谱仪表板。一些基本的东西。我想自动化脚本，以便它可以定期更新自己。我使用knitr和任务管理器来制作仪表板，效果很好。

我使用romainfrancois' blog的Facebook代码获取facebook数据：

facebook <-  function( path = "me", access_token = token, options){
  if( !missing(options) ){
    options <- sprintf( "?%s", paste( names(options), "=", unlist(options), collapse = "&", sep = "" ) )
  } else {
    options <- ""
  }
  url <- sprintf( "https://graph.facebook.com/%s%s&access_token=%s", path, options, access_token )
  # print(url)
  data <- getURL( url )
  fromJSON( data )
}

唯一的问题是自动获取访问令牌。

我试图网上抓取网页的令牌：

library(RCurl)
FBdevPage<-browseURL("http://developers.facebook.com/tools/explorer")
FBdevPage[21]

根据页面的源代码，它应该在第21行。但是，在R中它只显示反斜杠。有人有任何想法来获取访问令牌吗？或者，存储过程，同时它允许每次检索数据？

如何在Facebook中自动获取访问令牌

0 个答案: