r - R 中的 Twitter 身份验证

Question

尝试在 R 中使用 Twitter 身份验证(用于分析推文)，但 RStudio 不响应 PIN + 获取错误消息。

我使用 Mac OS X 10.6.8 和 RStudio 版本 0.98.1091

这是我正在使用的代码(包括占位符):

install.packages("twitteR")
library(twitteR)
download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="my_folder/my_subfolder/http://curl.haxx.se/ca/cacert.pem")


require(twitteR)
download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem")
requestURL <- "https://api.twitter.com/oauth/request_token"
accessURL = "https://api.twitter.com/oauth/access_token"
authURL = "https://api.twitter.com/oauth/authorize"
consumerKey = "xxxx"
consumerSecret = "yyyyy"
Cred <- OAuthFactory$new(consumerKey=consumerKey,
                     consumerSecret=consumerSecret,
                     requestURL=requestURL,
                     accessURL=accessURL, 
                     authURL=authURL)
Cred$handshake(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl") )

我明白了: “要启用连接，请将您的网络浏览器定向到: 奥 git _a 完成后，记录提供给您的 PIN 码并在此处提供:registerTwitterOAuth(Cred) 错误:需要授权”

当我在控制台中输入 PIN 时，我只会得到以下信息:

>1234567

[1] 1234567

然后我尝试运行 注册TwitterOAuth(Cred)，但在控制台中获取:

Error in registerTwitterOAuth(Cred) : 
  oauth has not completed its handshake

不确定我做错了什么或如何获得身份验证/授权。

非常感谢您对此提供的任何帮助。

Answer 1

试试这个

library(httk)
library(httpuv)

#browser based authentication
consumer_key <- "xxxxxxxxxxxxxxxxxxxx"
consumer_secret<- "xxxxxxxxxxxxxxxxxxxxxxxxx"
setup_twitter_oauth(consumer_key, consumer_secret, access_token=NULL,access_secret=NULL)