配置中的RTweet OAuth错误

Question

我对R编程语言一无所知，并且陷入了僵局，我真正陷入困境。

我已经借用了很多其他人的代码，并且一直在忙着调试其他库，这些库没有包含在软件包的帮助文本中，以达到我觉得非常接近的程度。

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

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

  

除了R-Compiler中的错误信息之外   twitCred $ handshake（）要启用连接，请引导您的网站   浏览器：   http://api.twitter.com/oauth/authorize?oauth_token=r4VjQQAAAAAA4-K7AAABYlMXEws   完成后，记录提供给您的PIN并在此处提供：   registerTwitterOAuth（twitCred）错误：禁止

我读到，如果代码中的网络链接不读取https：//并且保留为http：//，那么回调可能会出现问题，因此相应地进行了修改，但无效。

我的推文设置如下

我遵循了这个帖子中提出的建议，但它似乎没有帮助，或者我做了一些我不应该做的事...... StackOverflow Support Article

所以这是我的代码，如果你能看到显而易见的错误或者可以提供一些建议，请大声喊叫。

    ## 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包进行数据挖掘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")

If you click on the link in below image you will get all the API keys