Versuch

Question

Anhänger aus einer Liste von Twitter-Konten in R abrufen

Ich versuche, die Anhänger von bestimmten Konten mit dem TWITTER Paket in R zu erhalten:

names_list <- c("USER1","USER2", "etc.") 

twitter_account <- c() 

for (i in names_list){ 

    url = paste("https://api.twitter.com/1.1/followers/ids.json?cursor=-1&screen_name=",names_list[i], sep = ',') 
    twitter <- GET(url,sig) 
    content = content(twitter) 

    userz <- getUser(names_list[i]) 
    userz$getFollowers(names_list[i]) 

    } 

Aber leider funktioniert es nicht (immer eine Fehler, aber auch dann ich bin ziemlich sicher, es wird nicht funktionieren. I R relativ neu bin so wäre jede Hilfe, um diese Daten zu ziehen geschätzt. auch ohne das TWITTER-Paket.

[ Error in if (num <= 0) stop("num must be positive") else num <- as.integer(num) : 
    missing value where TRUE/FALSE needed] 

und es wäre hilfreich sein, wenn Sie erklären könnten, wie dies mit dem Abrufen der names_list aus einer CSV-Datei tatsächlich getan werden kann Das ist nicht wirklich notwendig.

Answer 1

Ich glaube, dass Ihr Problem von der getUser-Linie kommt.

userz <- getUser(names_list[i]) 

In diesem Fall 'i' ein Wert in names_list ist, wie Sie Ihre for-Schleife als

for (i in names_list){ 

So initialisiert haben, Ihr names_list [i] entspricht [ 'USER1'] names_list und NICHT zu names_list [1].

denke ich, was Sie wollen entweder auf Namen iterieren und direkt auf den Namen verweisen:

for (name in names_list){ 

    url = paste("https://api.twitter.com/1.1/followers/ids.json?cursor=-1&screen_name=", name, sep = ',') 
    twitter <- GET(url,sig) 
    content = content(twitter) 

    userz <- getUser(name) 
    userz$getFollowers(name) 

    } 

oder einen Index iterieren und Indizierung von names_list verwenden:

for (i in 1:length(names_list)){ 

    url = paste("https://api.twitter.com/1.1/followers/ids.json?cursor=-1&screen_name=",names_list[i], sep = ',') 
    twitter <- GET(url,sig) 
    content = content(twitter) 

    userz <- getUser(names_list[i]) 
    userz$getFollowers(names_list[i]) 

    }