Browse Source

Edit: trivial formatting changes

janwey 1 year ago
parent
commit
428ff2c867
1 changed files with 6 additions and 3 deletions
  1. 6
    3
      collecto.R

+ 6
- 3
collecto.R View File

@@ -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

Loading…
Cancel
Save