He creado un bucle que se ejecuta a través de un vector de identificadores de Twitter y recopila tweets de ellos utilizando elsearch_tweets función de lartweet paquete.

Descargar la última versión de rtweet

## install devtools package if it's not already
if (!requireNamespace("devtools", quietly = TRUE)) {
install.packages("devtools")
}

## install dev version of rtweet from github
devtools::install_github("mkearney/rtweet")

library(rtweet)

Crear token

## autheticate via web browser
token=create_token(
app = "My_app",
consumer_key = "My Consumer Key",
consumer_secret = 
"My Secret Code",set_renv = FALSE)

Aquí están mis identificadores de Twitter, almacenados en un vector

twitter_handles=c("@realDonaldTrump","@HillaryClinton","@MittRomney")

uego, recorro estos identificadores y almaceno los resultados de cada identificador como un marco de datos únic

#Loop through the twitter handles & store the results as individual dataframes
for(handle in twitter_handles) {

  result <- search_tweets(handle, n = 3500 , include_rts = FALSE,retryonratelimit = TRUE)

if(length(result) != 0){

  result
 He creado un bucle que se ejecuta a través de un vector de identificadores de Twitter y recopila tweets de ellos utilizando elsearch_tweets función de lartweet paquete.
Descargar la última versión de rtweet
## install devtools package if it's not already
if (!requireNamespace("devtools", quietly = TRUE)) {
install.packages("devtools")
}

## install dev version of rtweet from github
devtools::install_github("mkearney/rtweet")

library(rtweet)
 Crear token
## autheticate via web browser
token=create_token(
app = "My_app",
consumer_key = "My Consumer Key",
consumer_secret = 
"My Secret Code",set_renv = FALSE)
 Aquí están mis identificadores de Twitter, almacenados en un vector
twitter_handles=c("@realDonaldTrump","@HillaryClinton","@MittRomney")
uego, recorro estos identificadores y almaceno los resultados de cada identificador como un marco de datos únic
Twitter Handle` <- handle
  result$Source <- "Search"

  df_name <- paste(tolower(substring(handle, 2)),"_search")

  if(exists(df_name)) {
    assign(df_name, unique(rbind(get(df_name), result)))
  } else {
    assign(df_name, result)
  }
  }

  }

Sin embargo, cuando hago esto, recibo un mensaje de error

Advertencia: 32 - No se pudo autenticar. Error en el vector ("lista", n veces): argumento de "longitud" no válido

Sin embargo, no creo que este sea un problema de autenticación, porque cuando trato con una palabra clave / hashtag aleatorio, obtengo resultados

data <- search_tweets("#rstats", n = 10, include_rts = FALSE,token = token)

Mi bucle funcionaba bien, pero recientemente comenzó a arrojar errores. ¿Alguna idea de por qué sucede esto y si hay una solución?

¡Tu ayuda es altamente apreciada