scripts/twitter_analysis.R

In 3schwartz/SpecialeScrAndFun: Script and functions used for master thesis.

twit_1e5 <- readr::read_csv(
  "C:/Users/Soren Schwartz/Dropbox/Egne dokumenter/Skole/master/Data2018-10-11")

library(rtweet)

consumer_key <- "xOqmpoGBMr91X2iKAgJey8ehn"
consumer_secret <- "GgDPJIQWGsXxgNxs262LIAwIPB3qXO0OgTg4Rgl1yyjtZEYC7J"
access_token <- "1049665959663947777-KWBBLprqiC1EL0HYWXH4RCpVwOY13S"
access_secret <- "I3SE6GrD4fEgCweW3L2Q3Rh5QjEgeRpTSTtdB9RT7HjoC"
name = "mt_crypto"

token <- create_token(
  app = name,
  consumer_key = consumer_key,
  consumer_secret = consumer_secret,
  access_token = access_token,
  access_secret = access_secret)

searchTerm = "bitcoin+btc"

rt <- search_tweets(
  searchTerm, n = 1000000, retryonratelimit = TRUE
)