此处问题的答案似乎不再适用:Obtaining twitter screen names from a twitter list
有人知道twitteR软件包自2015年被回答以来是否已被更改。如果是,有没有办法下载当前版本的公共列表成员?
这是上一个答案的代码已更新,包含当前列表。需要Twitter API授权。它现在返回一个长度为0的列表,它应该有一个20个英超联赛俱乐部名称的列表。
library(rjson)
library(httr)
library(twitteR)
twlist <- "premier-league-clubs"
twowner <- "TwitterUK"
api.url <- paste0("https://api.twitter.com/1.1/lists/members.json?slug=",
twlist, "&owner_screen_name=", twowner, "&count=5000")
response <- POST(api.url, config(token=twitteR:::get_oauth_sig()))
response.list <- fromJSON(content(response, as = "text", encoding = "UTF-8"))
users.names <- sapply(response.list$users, function(i) i$name)
users.screennames <- sapply(response.list$users, function(i) i$screen_name)
head(users.names)