使用R通过Twitter的API进行OAuth身份验证

Question

我正在探索Twitter API。

我在R中使用ROAuth和twitteR软件包。

我认为事情进展顺利：

To enable the connection, please direct your web browser to: 
https://api.twitter.com/oauth/authorize?oauth_token=XXXXX
When complete, record the PIN given to you and provide it here: XX

到现在为止还挺好。 现在，我准备看到一些Twitter时间表：

> my_tweets <- userTimeline('someTimeline')

不幸的是，我得到：

Error in InterfaceObj$doAPICall(cmd, params, method, ...) : 
  OAuth authentication is required with Twitter's API v1.1

我一直在研究这意味着什么。 我觉得我的OAuth身份验证是适当的。 为什么会出现此错误？

我使用的API版本是否存在问题？

Answer 1

您可以按照以下步骤操作：

reqURL <- "https://api.twitter.com/oauth/request_token"
accessURL <- "https://api.twitter.com/oauth/access_token"
authURL <- "https://api.twitter.com/oauth/authorize"
consumerKey <- "Mjn6tdsadsadkasdklad2SV1l"
consumerSecret <- "58Z7Eldsdfaslkf;asldsaoeorjkfksaVCQtvri"
twitCred <- OAuthFactory$new(consumerKey=consumerKey,
                             consumerSecret=consumerSecret,
                             requestURL=reqURL,
                             accessURL=accessURL,
                             authURL=authURL)
twitCred$handshake()

运行此代码后，您将在R控制台消息中看到如下所示：

To enable the connection, please direct your web browser to: 
https://api.twitter.com/oauth/authorize?oauth_token=scmVODruosvz6Tdsdadadasdsa
When complete, record the PIN given to you and provide it here:

只需将链接粘贴到浏览器，然后授权应用程序，最后一个将获得PIN码，只需将PIN码复制并粘贴到R控制台即可。

registerTwitterOAuth(twitCred)

如果成功，R控制台将显示TRUE。

user <- getUser("xxx")
userTimeline(user, n=20, maxID=NULL, sinceID=NULL, includeRts=FALSE)

如果仍然有任何问题，请尝试显示您的软件包版本并更新到最新版本

sessionInfo()
update.packages("twitteR")

twitteR的最新版本是1.1.7 => http://cran.r-project.org/web/packages/twitteR/index.html

Answer 2

我发现您已成功访问（又称握手）。 我假设您的握手代码将类似于以下行。

Cred$handshake(cainfo = system.file("CurlSSL", "your_certificate.pem", package = "RCurl") )

然后，我假定您使用以下行注册了Twitter OAuth，您说这是成功的。

registerTwitterOAuth(Cred)

然后，您的userTimeline应该包括您之前创建的pem文件。

my_tweets <- userTimeline('someTimeline', cainfo="your_certificate.pem", n=200)