facebook - Facebookでアクセストークンを自動取得する方法

Question

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 ではバックスラッシュのみが表示されます。アクセストークンを取得するためのアイデアはありますか? または、毎回データを取得できるようにしながら、プロシージャを保存しますか?