Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 36 lines (26 sloc) 1.23 KB
#install.packages("streamR")
#install.packages("ROAuth")
library(ROAuth)
library(streamR)
#sets your working directory
setwd('/home/stats/data')
#create your OAuth credential
credential <- OAuthFactory$new(consumerKey='***CONSUMER KEY***',
consumerSecret='***CONSUMER SECRET KEY***',
requestURL='https://api.twitter.com/oauth/request_token',
accessURL='https://api.twitter.com/oauth/access_token',
authURL='https://api.twitter.com/oauth/authorize')
#authentication process
options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))
download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem")
credential$handshake(cainfo="cacert.pem")
#function to actually scrape Twitter
filterStream( file.name="tweets_test.json",
track="twitter", tweets=1000, oauth=credential, timeout=10, lang='en' )
#Parses the tweets
tweet_df <- parseTweets(tweets='tweets_test.json')
#using the Twitter dataframe
tweet_df$created_at
tweet_df$text
plot(tweet_df$friends_count, tweet_df$followers_count) #plots scatterplot
cor(tweet_df$friends_count, tweet_df$followers_count) #returns the correlation coefficient