# NOT RUN {
## See examples for fbOAuth to know how token was created.
load("fb_oauth")
## Returns the conversations of a given page
conversations <- FacebookPagesCollection(id="9thcirclegames", fb_oauth) %>%
FacebookConversationsCollection()
## Who sent a message to the page
senders <- facebook.senders(conversations) %>% FacebookUsersCollection()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab