Browse Source

Edit: trivial formatting changes

pull/15/head
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)
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

Loading…
Cancel
Save