Edit: trivial formatting changes

collecto.R

@@ -36,17 +36,20 @@ twitter_consumerkey <- as.character(twitter_api_cred$consumer_key)
 twitter_consumerpri <- as.character(twitter_api_cred$consumer_private)
 twitter_appname <- as.character(twitter_api_cred$appname)
 
-twitter_token <- create_token(app = twitter_appname, consumer_key = twitter_consumerkey, consumer_secret = twitter_consumerpri)
+twitter_token <- create_token(app = twitter_appname,
+                              consumer_key = twitter_consumerkey,
+                              consumer_secret = twitter_consumerpri)
 
 # Note -------------------------------------------------------------------------
 # Please refer to the Documentation on where to receive your API credentials.
 # ------------------------------------------------------------------------------
 
 ### Collecting Tweets
-twitter_tw <- search_tweets("#ilovefs", n = 9999, include_rts = FALSE)
+twitter_tw <- search_tweets(q = "#ilovefs",
+                            n = 9999,
+                           include_rts = FALSE)
 
 twitter_number <- length(twitter_tw$text)
-
 text <- twitter_tw$text
 user <- twitter_tw$screen_name
 clnt <- twitter_tw$source