|
@@ -36,17 +36,20 @@ twitter_consumerkey <- as.character(twitter_api_cred$consumer_key)
|
36
|
36
|
twitter_consumerpri <- as.character(twitter_api_cred$consumer_private)
|
37
|
37
|
twitter_appname <- as.character(twitter_api_cred$appname)
|
38
|
38
|
|
39
|
|
-twitter_token <- create_token(app = twitter_appname, consumer_key = twitter_consumerkey, consumer_secret = twitter_consumerpri)
|
|
39
|
+twitter_token <- create_token(app = twitter_appname,
|
|
40
|
+ consumer_key = twitter_consumerkey,
|
|
41
|
+ consumer_secret = twitter_consumerpri)
|
40
|
42
|
|
41
|
43
|
# Note -------------------------------------------------------------------------
|
42
|
44
|
# Please refer to the Documentation on where to receive your API credentials.
|
43
|
45
|
# ------------------------------------------------------------------------------
|
44
|
46
|
|
45
|
47
|
### Collecting Tweets
|
46
|
|
-twitter_tw <- search_tweets("#ilovefs", n = 9999, include_rts = FALSE)
|
|
48
|
+twitter_tw <- search_tweets(q = "#ilovefs",
|
|
49
|
+ n = 9999,
|
|
50
|
+ include_rts = FALSE)
|
47
|
51
|
|
48
|
52
|
twitter_number <- length(twitter_tw$text)
|
49
|
|
-
|
50
|
53
|
text <- twitter_tw$text
|
51
|
54
|
user <- twitter_tw$screen_name
|
52
|
55
|
clnt <- twitter_tw$source
|