# NOT RUN {
## See examples for fbOAuth to know how token was created.
load("fb_oauth")
admin.pages <- facebook.current.accounts(fb_oauth)
extended.pages <- admin.pages %>% FacebookPagesCollection()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab