# NOT RUN {
## See examples for fbOAuth to know how token was created.
load("fb_oauth")
## Pull at most 10 groups from the current user
fb.groups <- FacebookUsersCollection("me", fb_oauth) %>% FacebookGroupscollection(n = 10)
## Get the members of these groups
fb.members <- FacebookUsersCollection(fb.groups)
## Convert the collection to a data frame
fb.groups.df <- as.data.frame(fb.groups)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab