Рукопожатие ROAuth

Я пытался пройти аутентификацию через ROAuth, используя следующий скрипт:

    library("ROAuth")
    library("RCurl")

requestURL <- "https://api.twitter.com/oauth/request_token"
accessURL = "https://api.twitter.com/oauth/access_token"
authURL = "https://api.twitter.com/oauth/authorize"


cKey<- "Key"
cSecret<- "Secret"


Cred <- OAuthFactory$new(consumerKey=cKey,
            consumerSecret=cSecret,
            requestURL=requestURL,
            accessURL=accessURL,
            authURL=authURL)

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

Каждый раз, когда я ввожу этот код, я получаю сообщение об ошибке:

Error in Cred$handshake(cainfo = system.file("CurlSSL", "cacert.pem",  : Invalid response from site, please check your consumerKey and consumerSecret and try again.

Я не уверен, что я делаю неправильно. Я убедился, что все необходимые пакеты обновлены, переустановив ROauth и RCurl и проверив информацию об их версиях (ROAuth 0.9.1 и RCurl_1.91-1.1(?)). После установки я перезапустил R (как возможное решение, предложенное в другом посте). Я скопировал и дважды проверил ключ потребителя и секрет потребителя, и я уверен, что они верны. У кого-нибудь есть другие идеи?

Спасибо.