## Not run:
#
# ## An example of an authenticated request using the ROAuth package,
# ## where consumerkey and consumer secret are fictitious.
# ## You can obtain your own at dev.twitter.com
# library(ROAuth)
# requestURL <- "https://api.twitter.com/oauth/request_token"
# accessURL <- "http://api.twitter.com/oauth/access_token"
# authURL <- "http://api.twitter.com/oauth/authorize"
# consumerKey <- "xxxxxyyyyyzzzzzz"
# consumerSecret <- "xxxxxxyyyyyzzzzzzz111111222222"
# my_oauth <- OAuthFactory$new(consumerKey=consumerKey,
# consumerSecret=consumerSecret, requestURL=requestURL,
# accessURL=accessURL, authURL=authURL)
# my_oauth$handshake(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl"))
#
# ## capture 10 tweets mentioning the "Rstats" hashtag
# library(streamR)
# filterStream( file.name="tweets_rstats.json",
# track="rstats", tweets=10, oauth=my_oauth )
#
# ## exporting those 10 tweets to MongoDB (database name is "tweets" and
# ## collection name is "rstates")
# tweetsToMongo( file.name="tweets_rstats.json", ns="tweets.rstats",
# username="<USERNAME>", password="<PASSWORD>")
#
# ## End(Not run)
Run the code above in your browser using DataLab