## Not run: ------------------------------------
# ## Find Facebook ID for R-Users Facebook group
# load("fb_oauth")
# ids <- searchGroup(name="rusers", token=fb_oauth)
# ids[1,] # id = 18533493739
# ## Downloading posts from R-Users Facebook group
# group <- getGroup(group_id=18533493739, token=fb_oauth)
# ## Downloading posts from R-Users Facebook group in January 2013
# group <- getGroup(group_id=18533493739, token=fb_oauth,
# since='2013/01/01', until='2013/01/31')
## ---------------------------------------------
Run the code above in your browser using DataLab