R - Twitter - fromJSON - 获取推文列表

Question

我想使用R中的包RJSONIO从Twitter中检索一个给定主题标签的推文列表。我认为我非常接近解决方案，但我似乎错过了一步。

我的代码如下所示（在本例中，我使用#NBA作为主题标签）：

library(httr)
library(RJSONIO)

# 1. Find OAuth settings for twitter:
#    https://dev.twitter.com/docs/auth/oauth
oauth_endpoints("twitter")

#    Replace key and secret below
myapp <- oauth_app("twitter",
                   key = "XXXXXXXXXXXXXXX",
                   secret = "YYYYYYYYYYYYYYYYY"
)

# 3. Get OAuth credentials
twitter_token <- oauth1.0_token(oauth_endpoints("twitter"), myapp)

# 4. Use API
req=GET("https://api.twitter.com/1.1/search/tweets.json?q=%23NBA&src=typd",
        config(token = twitter_token))
req <- content(req, as = "text")
response=fromJSON(req)

如何从对象＆＃39;响应＆＃39;中获取推文列表？

最终，我希望得到类似的内容：

searchTwitter("#NBA", n=5000, lang="en")

提前多多感谢！

Answer 1

响应对象应该是长度为二的列表：状态和元数据。因此，例如，要获取第一条推文的文本，请尝试：

response$statuses[[1]]$text

但是，有一些R软件包旨在简化这类工作：尝试streamR用于流API，twitteR用于REST API。后者具有与您描述完全相同的searchTwitter功能。