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)

如何从对象 'response' 中获取推文列表？

最后，我想得到类似的东西：

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

非常感谢！

Answer 1

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

response$statuses[[1]]$text

但是，有几个 R 包旨在使这种事情变得更容易：尝试 streamR for the streaming API, and twitteR 用于 REST API。后者具有与您描述的完全相同的 searchTwitter 功能。

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

R - Twitter - fromJSON - get list of tweets

twitter

r