配置中的RTweet OAuth错误

Question

我对R编程语言一窍不通，现在陷入了僵局，我真的完全被困住了。

我已经借用了很多其他人的代码，并且一直忙于调试，把不包含在包的帮助文本中的其他库放到包的帮助文本中，以达到我觉得非常接近的程度。

也就是说，我根本无法让R正确授权推特搜索或OAuth连接。

我运行我的代码，它会弹出下面的错误屏幕。

​

​

在record中，twitCred$握手()的错误消息用于启用连接，请将您的web浏览器定向到：令牌=r4VjQAAAAAA4-K7AAABYlMXEws完成后，记录给您的registerTwitterOAuth(twitCred)错误:禁用

我读到，如果代码中的网页链接没有读取https://，并且留下了http://，那么回调可能会出现问题，因此已经相应地进行了修改，但没有效果。

我的twitter设置如下

​

​

我遵循了这篇文章中的建议，但似乎没有帮助，或者我做了一些不该做的事.StackOverflow支持条款

因此，这是我的代码，请大声喊，如果你能看到明显的对你，不对我的错误，或可以提供一些建议。

    ## install devtools package if it's not already
if (!requireNamespace("devtools", quietly = TRUE)) {
  install.packages("devtools")
}

## install dev version of rtweet from github
devtools::install_github("mkearney/rtweet")

## load rtweet package
library(rtweet)

install.packages("rtweet")
install.packages("RCurl")
install.packages("tm")
install.packages("wordcloud")
install.packages("httpuv")
install.packages(c('ROAuth','RCurl'))
install.packages("rjson")
install.packages("bit64")
install.packages("httr")

require(twitteR)
require(RCurl)
require(tm)
require(wordcloud)
require(httpuv)
require(rtweet)
require(ROAuth)
require(RCurl)
require(rjson)
require(bit64)
require(httr)





## CURL LOGIC ## 


reqURL <- "https://api.twitter.com/oauth/request_token"
accessURL <- "https://api.twitter.com/oauth/access_token"
authURL <- "https://api.twitter.com/oauth/authorize"
api_key <- "AAAAAAA"
consumer_key <- "AAAAAAA"
consumerKey <- "AAAAAAA"
consumerSecret <- "AAAAAAA"
twitCred <- OAuthFactory$new(consumerKey=consumerKey,
access_token <- "AAAAAAA"
access_token_secret <- "AAAAAAAAAA"
consumerSecret=consumerSecret,
requestURL=reqURL,
accessURL=accessURL,
authURL=authURL)
twitCred$handshake()
registerTwitterOAuth(twitCred)


##################

API键的复制意味着在那里，因为我已经尝试了这么多连接建议线程，现在我迷失在如何为什么和为什么.

Answer 1

您可以使用Twitter包进行数据挖掘。请查找以下代码供您参考。

install.packages('twitteR')
install.packages('ROAuth')    
install.packages("RCurl")

library(twitteR)    
require("ROAuth")    
require("RCurl")

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


t_consumer_key<-    'YOUR CONSUMER KEY'
t_consumer_secret<- 'YOUR CONSUMER SECRET KEY'
t_access_token<-    'YOUR ACCESS TOKEN'
t_access_secret <-  'YOUR ACCESS SECRET'


setup_twitter_oauth(t_consumer_key,t_consumer_secret,t_access_token,t_access_secret)

list <- searchTwitter("iphone")

如果您单击下图中的链接，您将得到所有的API键。