在R Studio中的ROAuth过程中没有PIN

Question

我想通过R Studio [版本3.5.1（2018-07-02）]访问twitter来下载与特定关键字匹配的推文。

我正在使用“twitteR”和“ROAuth”软件包。我的Twitter帐户将“读取，写入和直接消息”设置为访问权限。

我的问题与陈述的here完全相同

唯一的区别是，那里提供的解决方案对我不起作用。

通过使用我的密钥执行代码（请参阅链接的帖子），我可以点击开始网站上的“身份验证”按钮，立即重定向到回调URL并看不到PIN。

Twitter需要一个回调网址，因此我无法从我的Twitter帐户设置中删除它。

我累了：

• 重新安装包
• 更改工作目录
• 安装包“openssl”和“httpuv”作为suggested
• 将我的帐户的Twitter访问权限从“读写”更改为“读取，写入和直接消息”
• 使用了生成错误消息的setup_twitter_oauth函数：

> setup_twitter_oauth(consumer_key, consumer_secret, access_token, access_secret)
[1] "Using direct authentication"
Error in check_twitter_oauth() : OAuth authentication error:
This most likely means that you have incorrectly called setup_twitter_oauth()'

我的主要方法是基于上面的链接主题。我用这个代码：

requestURL <-  "https://api.twitter.com/oauth/request_token"  
accessURL =    "https://api.twitter.com/oauth/access_token"  
authURL =      "https://api.twitter.com/oauth/authorize"  
consumerKey = 'YYY'
consumerSecret = 'XXX'
twitCred <- OAuthFactory$new(consumerKey='YYY',  
                             consumerSecret='XXX',  
                             requestURL=requestURL,  
                             accessURL=accessURL,  
                             authURL=authURL)

download.file(url="http://curl.haxx.se/ca/cacert.pem",  
              destfile="cacert.pem")  

twitCred$handshake(cainfo= system.file("CurlSSL", "cacert.pem", package = "RCurl"))

第二种方法是使用以下函数，该函数产生与上述相同的误差。

TwitterOAuth<-function()
{
  reqURL   <- "https://api.twitter.com/oauth/request_token"
  accessURL<- "https://api.twitter.com/oauth/access_token"
  authURL  <- "https://api.twitter.com/oauth/authorize"
  twitCred <- OAuthFactory$new(consumerKey='YYY',
                               consumerSecret='XXX',
                               requestURL=reqURL,
                               accessURL=accessURL,
                               authURL=authURL)

  options(RCurlOptions = list(cainfo = system.file("CurlSSL", 
                                                   "cacert.pem", 
                                                   package = "RCurl")))

  twitCred$handshake()

  registerTwitterOAuth(twitCred)
}

TwitterOAuth()

第二种方法在R的控制台中生成一个Twitter API链接，当我立即点击它时，我会被引导到一个Twitter页面，其中说明：“哇哇哇！这个页面的请求令牌无效。它可能已被使用或已过期因为它太旧了。请回到发送给你的网站或应用程序再试一次;这可能只是一个错误。“

我希望建立R和Twitter之间的联系。我不依赖于ROAuth包，如果有另一个包/方式允许我下载大型时间序列的关键字相关推文，我将不胜感激。

非常感谢您的帮助 ：）。

Answer 1

解：

这次我不需要包“ROAuth”，而是“httr”和“openssl”，我能够使用“setup_twitter_oauth”函数和我的登录数据，它没有任何问题！

顺便说一句：它没有显示我的PIN，但数据可以直接下载到R！

根据这个youtube video，twitter帐户需要“读取，写入和直接消息”权限。