R/collect.R

In gra-briel/estatistica-r:

library(rtweet)
library(dplyr)

appname <- ''
key <- ''
secret <- ''
access_token <- ''
access_secret <- ''

twitter_token <- create_token(
  app = appname,
  consumer_key = key,
  consumer_secret = secret,
  access_token = access_token,
  access_secret = access_secret,
  set_renv = FALSE)

tweets <- search_tweets(q = "vacina", n = 1000, type = "recent", include_rts = FALSE)


dim(tweets)
colnames(tweets)
head(tweets)
head(tweets$text)