twitteR在输入twitteR API PIN后抛出禁止的错误

我正在尝试使用R和twitteR软件包分析一些推文。握手和注册码似乎工作正常，我从R获得了授权链接。然而，当我输入从R获得的PIN时，我得到了一个“禁止的错误”。任何帮助都是非常感谢的

守则：

TwitterOAuth<-function(){
  reqURL <- "https://api.twitter.com/oauth/request_token"
  accessURL <- "http://api.twitter.com/oauth/access_token"
  authURL <- "http://api.twitter.com/oauth/authorize"
  consumerKey <- "xxxxxxxxxxxxxxxx"
  consumerSecret <- "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
  twitCred <- OAuthFactory$new(consumerKey=consumerKey,
                             consumerSecret=consumerSecret,
                             requestURL=reqURL,
                             accessURL=accessURL,
                             authURL=authURL)
  options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package =  "RCurl")))
  twitCred$handshake()
  registerTwitterOAuth(twitCred)
}

TwitterOAuth基于此博客：

库（RCurl）
#全局设置SSL证书
选项（rcurlpoptions=list（cainfo=system.file（“curlsl”、“cacert.pem”、package=“RCurl”））
要求（推特）
reqURL将您的访问URL从http更改为https。
我收到了相同的“错误：禁止”响应，今天还没有解决它（尽管我以前解决过）

我的Windows 8.1系统的R脚本还包括以下内容：

下载.file（url=”http://curl.haxx.se/ca/cacert.pem，destfile=“cacert.pem”）

我在网上找到了这句话，上面写着：“这是Windows的必要步骤”

大约三天前，我在输入在线PIN码后成功地访问了Twitter，但今天我无法访问。
Cookie可能是个问题：在我身上发生了什么类似的事情，当我在另一个浏览器中使用Twitchred$handshake（）

提供的链接时，这一问题得到了解决；i、 例如，我一直在Safari中尝试，但后来在Chrome中尝试了一次，我在Chrome中收到的PIN在R中被接受，没有问题。

您可以按照此步骤操作（别忘了，有效的URL是使用https）：

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

registerTwitterOAuth(twitCred)

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

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

---

这个用户帮我解决了这个问题@user3265306如果你还活着，而这是你的作品，请将其标记为答案。我也为我工作过。谢谢@Martin！请@user3265306将此标记为答案！当我在url中使用https时，我在strsplit（response，&“）中得到一个“错误”：非字符参数“错误”
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:

registerTwitterOAuth(twitCred)

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