1

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

我使用romainfrancois 博客的 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 中它只显示一个反斜杠。有人有任何想法来获取访问令牌吗？或者，存储过程，而它允许每次检索数据？

4

0 回答 0