if (FALSE) {
## You can generate a token for future use with the help of `httr`, e.g.
library(httr)
app <- oauth_app("facebook", your_app_id, your_app_secret)
oauth2.0_token(oauth_endpoints("facebook"), app,
scope = '',
type = "application/x-www-form-urlencoded")$credentials$access_token
## Then pass this token with your account ID to fbad_init
}
Run the code above in your browser using DataLab