Lección 8.1 - accediendo a la API

# Primero tenemos que cargar la biblioteca rtweet

library(rtweet)

# Ahora guardamos la información de nuestra app (nombre y contraseñas de acceso)

# en objetos de R.

# Nota: estas contraseñas son falsas, las ponemos sólo como ejemplo. Cada quien

# debe poner las suyas, así como el nombre de su app.

app_name <- "Twitter_Ceiich"

consumer_key <- "tu4shJeU2FcBzpnipOCCLhZWG"

consumer_secret <- "gfBpZ2Dcsf3PerDYpfmqbp5X49uHd7DIXCl5eplkrfa8Q0SqvF"

access_token <- "1220575586159376009-lDnjd1RJgjwrGLsEGNW4FnM76wS2qA"

access_secret <- "EW8n3zEsYm7qI2bT91xS3BVO8FK2RM3tZzXfuK3VoZkpm1"

# Usamos la función create_token() para, precisamente, crear un token de autorización.

token<-create_token(app=app_name,consumer_key=consumer_key,consumer_secret=consumer_secret,

access_token=access_token,access_secret=access_secret)

# Mostramos el token en la pantalla.

token

# Cada vez que hacemos una solicitud a Twitter, hay que incluir el token.

# Por comodidad, guardamos el token como una variable ambiental.

path_to_token<-file.path("~",".twitter_token.rds")

saveRDS(token,path_to_token)

env_var<-paste0("TWITTER_PATH=",path_to_token)

cat(env_var,file=file.path(path.expand("~"),".Renviron"),fill=TRUE,append=TRUE)

readRenviron("~/.Renviron")

# Verificamos nuestro acceso preguntando cuáles son los trending topics

# en este momento.

get_trends("mexico")$trend