# NOT RUN {
## See examples for fbOAuth to know how token was created.
load("fb_oauth")
## Returns the conversations of the current user
my.conversations <- FacebookUsersCollection(id="me", fb_oauth) %>%
FacebookConversationsCollection()
## Who talks to the current users
participants <- facebook.participants(my.conversations) %>% FacebookUsersCollection()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab