install.packages("rtweet")
library(rtweet)

# accesso via browser
# qui vanno inserite le chiavi personali
api_key <- "...."
api_secret_key <- "..."

token <- create_token(
  app = "my_app",
  consumer_key = api_key,
  consumer_secret = api_secret_key)

# get_token()

# messaggi in lingua italiana
rt2 <- search_tweets(
  "#greenpassday", n = 5000, 
  include_rts = FALSE,
  lang = "it",
  type = "recent")
  
library(tidytext)
library(tidyverse)

rt2 <- rt2 %>% 
  mutate(text = str_replace_all(text, "[\'']", "' ")) %>% 
  unnest_tweets(word, text, 
                to_lower = FALSE,
                strip_url = FALSE) %>% 
  select(word, everything())