## Not run:
# ## connect to the Mongo database
# mongo <- mongo.create("SMAPP_HOST:PORT", db="DATABASE")
# mongo.authenticate(mongo, username="USERNAME", password="PASSWORD", db="DATABASE")
# set <- "DATABASE.COLLECTION"
#
# ## extract all retweets that were retweeted at least 2000 times
# rts <- extract.retweets(set, min=2000)
#
# ## show top 10 retweets from previous query
# summary(rts, n=10)
#
# ## extract all retweets that mentioned "turkey" and were retweeted at least 100 times
# rts <- extract.retweets(set, string="occupygezi", min=100)
#
# ## show top 10 retweets from previous query
# summary(rts, n=10)
# ## End(Not run)
Run the code above in your browser using DataLab