# NOT RUN {
## See examples for fbOAuth to know how token was created.
load("fb_oauth")
## Returns the id and the type of the current user's likes
me.likes <- facebook.users.likes(id = "me", token = fb_oauth)
## Do the same, but starting from a users collection
me.likes <- FacebookUsersCollection(id="me", fb_oauth) %>% facebook.users.likes()
## Build a pages collection from all the pages (and ONLY the pages)
## the current user likes
me.likes.pages <- me.likes %>% FacebookPagesCollection()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab