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

[frnz347]

Hello Guys,

When I try to establish establish a connection to the Twitter API, I get an error:

setup_twitter_oauth(API_key, API_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()'

Please guide me on this. I have tried all the solutions offered in here, nothing worked for me.

The following is my R sessionInfo:

R version 3.3.2 (2016-10-31)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=English_Australia.1252 LC_CTYPE=English_Australia.1252
[3] LC_MONETARY=English_Australia.1252 LC_NUMERIC=C
[5] LC_TIME=English_Australia.1252

attached base packages:
[1] stats graphics grDevices utils datasets methods base

loaded via a namespace (and not attached):
[1] tools_3.3.2

Thanks,

Farnaz

[mikkelkrogsholm]

I get the same error

[jakeander]

Same here.

[lgheorma]

I've tried the following: adding the old version of the httr package, turning my firewall off, adding the base64enc package and nothing worked... And yes, I have installed all the packages AND I used the library function before trying to use them.
I don't know what else to do. I have Windows 8.1 and the most up to date versions of R, R studio, and of the packages.

Here is my code

library("base64enc")
library("twitteR")
library("ROAuth")
library("devtools")
library("memoise")
library("whisker")
library("rstudioapi")
library("git2r")
library("withr")
library("rjson")
library("bit64")
library ("httr")
library ("httpuv")

download.file(url="http://curl.haxx.se/ca/cacert.pem",destfile="cacert.pem")
consumerKey <- "key"
consumerSecret <- "key"
accessToken <- "key"
accessTokenSecret <- "key"

setup_twitter_oauth(consumerKey, consumerSecret, accessToken, accessTokenSecret)

*key= for each line I added the corresponding key from my Twitter App page.

[gallard28]

I had this problem when I went to scrape tweets. I solved it by opening libraries for "httpuv" and "openssl".

Session Info:
R version 3.4.1 (2017-06-30)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS High Sierra 10.13.2

Matrix products: default
BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/3.4/Resources/lib/libRlapack.dylib

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats graphics grDevices utils datasets
[6] methods base

other attached packages:
[1] dplyr_0.7.4 stringr_1.2.0 tm_0.7-3
[4] NLP_0.1-11 wordcloud_2.5 RColorBrewer_1.1-2
[7] SnowballC_0.5.1 httpuv_1.3.5 openssl_0.9.9
[10] twitteR_1.1.9

loaded via a namespace (and not attached):
[1] Rcpp_0.12.14 bindr_0.1 xml2_1.1.1
[4] magrittr_1.5 bit_1.1-12 lattice_0.20-35
[7] rjson_0.2.15 R6_2.2.2 rlang_0.1.6
[10] httr_1.3.1 tools_3.4.1 parallel_3.4.1
[13] grid_3.4.1 DBI_0.7 assertthat_0.2.0
[16] yaml_2.1.14 bit64_0.9-7 tibble_1.3.4
[19] bindrcpp_0.2 Matrix_1.2-12 curl_2.8.1
[22] glue_1.2.0 slam_0.1-42 stringi_1.1.5
[25] compiler_3.4.1 pkgconfig_2.0.1

Code below:

#Load Libraries
library("twitteR")
library("openssl")
library("httpuv")
library("twitteR")
library("tm")
library("stringr")
library("dplyr")

#Save your Twitter account Keys and Tokens. If you do not have a twitter account. https://apps.twitter.com/

consumer_key<-"code"
consumer_secret<-"code"
access_token <- "code"
access_secret <- "code"

#Connects you to Twitter
setup_twitter_oauth(consumer_key, consumer_secret, access_token , access_secret)
origop <- options("httr_oauth_cache")
options(httr_oauth_cache = TRUE)

#ChancellorDav Tweets
CD_Timeline <- userTimeline(user = "ChancellorDav", n = 3200, includeRts = FALSE, excludeReplies = TRUE)
toSpace <- content_transformer(function (x , pattern ) gsub(pattern, " ", x))

#Sapply Approach
CD_tweets <- sapply(CD_Timeline, function(x) { strsplit(gsub("[^[:alnum:] ]", "", x$text), " +")[[1]] })

#Overview of Data Scraped
head(CD_tweets)
tail(CD_tweets)
str(CD_tweets)

[dhelly]

This library resolve my problem.
library("openssl")
library("httpuv")

[nadeemkhan786]

when i run code OTP get generated but when i use "search" command error can be generated

library(twitteR)
library(ROAuth)
#ibrary("openssl")
#ibrary("httpuv")
#library(base64enc)
consumer_key <- "code"
consumer_secret <- "code"
access_token <- "code"
access_secret <- "code"

#setup_twitter_oauth(consumer_key,consumer_secret,access_token,access_secret)

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

setup_twitter_oauth(consumer_key,consumer_secret,access_token,access_secret)

tcred <- OAuthFactory$new(consumerKey=consumer_key,
consumerSecret=consumer_secret,
requestURL='https://api.twitter.com/oauth/request_token',
accessURL='https://api.twitter.com/oauth/access_token',
authURL='https://api.twitter.com/oauth/authorize')

tcred$handshake(cainfo="cacert.pem")

Error in twInterfaceObj$doAPICall(cmd, params, "GET", ...) :
OAuth authentication error:
This most likely means that you have incorrectly called setup_twitter_oauth()'

version 3.4.3 please help me

[BroVic]

@nadeemkhan786 I get this error when I have poor internet. But you could fix the typos in your code so we're certain that we're on the same page....

[nadeemkhan786]

@BroVic but i have good internet still i am in same place (error)

[Bawage]

I am getting following error. Can anybody guide me?

Error in twInterfaceObj$doAPICall(cmd, params, "GET", ...) :
OAuth authentication error:
This most likely means that you have incorrectly called setup_twitter_oauth()'

[luizot]

Please, how to correct this error?

library(twitteR)
library(ROAuth)
library(RCurl) Carregando pacotes exigidos: bitops
library(openssl)
library(httpuv)
library(base64enc)
library(httr)
options(httr_oauth_cache=T)
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()'

[ddten]

I wrote a code like this and got an error as below:
library(httr)
options(httr_oauth_cache=T)
library(devtools)
library(twitteR)
library(base64enc)
library(ROAuth)
library(plyr)
library(dplyr)
library(stringr)
library(RCurl)
library(httpuv)
library(openssl)
library(ggplot2)
consumer_key<-"code"
consumer_secret<-"code"
access_token<-"code"
access_secret<-"code"
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()'
Can somebody help?

[mayankvik2]

Thanks a lot. Using library openssl and httpuv resolved my Error in check_twitter_oauth() : OAuth authentication error. I was getting worried and in the end of two days I read this post and nailed the error out of my program. Once again thanks!!!

[ddten]

Share your code please @mayankvik2

[nadeemkhan786]

check working directory

[ddten]

library("twitteR")
library("openssl")
library("httpuv")
library("twitteR")
library("tm")
library("stringr")
library("dplyr")

api_key <- " code"
api_secret <- "code"
access_token <- "code"
access_secret <- "code"

setup_twitter_oauth(api_key,api_secret,access_token,access_secret)
origop <- options("httr_oauth_cache")
options(httr_oauth_cache = TRUE)
I saved my code in desktop and set it as working directory but still the errors of check twitter oauth came.

[jack-81]

Tried all the posted solutions but still face the same error:
[1] "Using direct authentication"
Error in check_twitter_oauth() : OAuth authentication error:
This most likely means that you have incorrectly called setup_twitter_oauth()'

Please anyone help to resolve this weird problem. I'm trying for a week to solve this and checked almost all the related forums around the Web. Here is my last place to ask or I will uninstall R and start another language!

[ddten]

Try changing the directory. Like say make a new folder in desktop and save it there and then write path C:/filename/desktop On 21-Apr-2018, at 3:30 PM, jack-81 <[email protected]<mailto:[email protected]>> wrote: Tried all the posted solutions but still face the same error: [1] "Using direct authentication" Error in check_twitter_oauth() : OAuth authentication error: This most likely means that you have incorrectly called setup_twitter_oauth()' Please anyone help to resolve this weird problem. I'm trying for a week to solve this and checked almost all the related forums around the Web. Here is my last place to ask or I will uninstall R and start another language! — You are receiving this because you commented. Reply to this email directly, view it on GitHub<#137 (comment)>, or mute the thread<https://github.com/notifications/unsubscribe-auth/AkTNKiLiAb-2knTcbK5YbYgv2Cm_idPYks5tqwNQgaJpZM4LxENV>.

[jack-81]

I think this is an important issue that has many solutions. Do you think setting a bounty on bountify can be helpful.

I really need to solve this for an important project.

[mayankvik2]

Hi there, For solving error check the following: 1.you have also downloaded certificates in case using windows for interacting with twitter API.. download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem") #downloads the certificate 2. If direct auhrntication showing error then first perfotm handshaking with twitter API. my_oauth <- OAuthFactory$new(consumerKey = consumerKey, consumerSecret = consumerSecret, requestURL = requestURL, accessURL = accessURL, authURL = authURL) my_oauth$handshake(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")) Thats all!! In case you still found show issue ,then comment again with complete code

…

On Sat, Apr 21, 2018 at 3:32 AM, ddten ***@***.***> wrote: Try changing the directory. Like say make a new folder in desktop and save it there and then write path C:/filename/desktop On 21-Apr-2018, at 3:30 PM, jack-81 ***@***.***<mailto: ***@***.***>> wrote: Tried all the posted solutions but still face the same error: [1] "Using direct authentication" Error in check_twitter_oauth() : OAuth authentication error: This most likely means that you have incorrectly called setup_twitter_oauth()' Please anyone help to resolve this weird problem. I'm trying for a week to solve this and checked almost all the related forums around the Web. Here is my last place to ask or I will uninstall R and start another language! — You are receiving this because you commented. Reply to this email directly, view it on GitHub<https://github.com/ geoffjentry/twitteR#137#issuecomment-383282516>, or mute the thread<https://github.com/notifications/unsubscribe-auth/AkTNKiLiAb- 2knTcbK5YbYgv2Cm_idPYks5tqwNQgaJpZM4LxENV>. — You are receiving this because you were mentioned. Reply to this email directly, view it on GitHub <#137 (comment)>, or mute the thread <https://github.com/notifications/unsubscribe-auth/Akr05Uqd171gUaPdlZjdoBg5EefWMZpoks5tqwrOgaJpZM4LxENV> .

[monitotier]

I exactly have the same issue, I have tried everything! it is so frustrating, Let me know if you solve it and how did you do it. I am still working on it too.

[ddten]

Have you both @monitotier @mayankvik2 tried to set the working directory? Like if you make a new folder on desktop named say R Studio then set the working directory as that?
Also regenerate all the keys.
Try writing the code like I did
library("openssl")
library("httpuv")
library("twitteR")
library("tm")
library("stringr")
library("dplyr")

api_key <- " code"
api_secret <- "code"
access_token <- "code"
access_secret <- "code"

setup_twitter_oauth(api_key,api_secret,access_token,access_secret)
origop <- options("httr_oauth_cache")
options(httr_oauth_cache = TRUE)
Also if you have problems with twitteR you can use rtweet.

[monitotier]

@ddten: Thanks for your quick response. After going through more threads I found that this package was missing "base64enc". It helped!
Thanks 😃

[jack-81]

Thanks for the solution. We have a new error! Following your suggested steps, the following error was arised! Error in function (type, msg, asError = TRUE) : Failed to connect to api.twitter.com port 443: Timed out Win 7, R 3.4.4. On Sun, Apr 22, 2018 at 4:52 AM, mayankvik2 <[email protected]> wrote:

…

Hi there, For solving error check the following: 1.you have also downloaded certificates in case using windows for interacting with twitter API.. download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem") #downloads the certificate 2. If direct auhrntication showing error then first perfotm handshaking with twitter API. my_oauth <- OAuthFactory$new(consumerKey = consumerKey, consumerSecret = consumerSecret, requestURL = requestURL, accessURL = accessURL, authURL = authURL) my_oauth$handshake(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")) Thats all!! In case you still found show issue ,then comment again with complete code On Sat, Apr 21, 2018 at 3:32 AM, ddten ***@***.***> wrote: > > Try changing the directory. Like say make a new folder in desktop and save > it there and then write path C:/filename/desktop > > > On 21-Apr-2018, at 3:30 PM, jack-81 ***@***.***<mailto: > ***@***.***>> wrote: > > > Tried all the posted solutions but still face the same error: > [1] "Using direct authentication" > Error in check_twitter_oauth() : OAuth authentication error: > This most likely means that you have incorrectly called > setup_twitter_oauth()' > > Please anyone help to resolve this weird problem. I'm trying for a week to > solve this and checked almost all the related forums around the Web. Here > is my last place to ask or I will uninstall R and start another language! > > — > You are receiving this because you commented. > Reply to this email directly, view it on GitHub<https://github.com/ > geoffjentry/twitteR#137#issuecomment-383282516>, or mute the > thread<https://github.com/notifications/unsubscribe-auth/AkTNKiLiAb- > 2knTcbK5YbYgv2Cm_idPYks5tqwNQgaJpZM4LxENV>. > > — > You are receiving this because you were mentioned. > Reply to this email directly, view it on GitHub > <https://github.com/geoffjentry/twitteR/issues/ 137#issuecomment-383284002>, > or mute the thread > <https://github.com/notifications/unsubscribe-auth/ Akr05Uqd171gUaPdlZjdoBg5EefWMZpoks5tqwrOgaJpZM4LxENV> > . > — You are receiving this because you commented. Reply to this email directly, view it on GitHub <#137 (comment)>, or mute the thread <https://github.com/notifications/unsubscribe-auth/Aky7RpIXnoHdPJ1x-c8kyEdDdmAO7kS7ks5tq81egaJpZM4LxENV> .

[mad-moon]

I found the solution in a Stackoverflow post. try to run setup_twitter_oauth(consumer_key, consumer_secret) and see what libraries are missing then install them.

[akinsbola452000]

Thanks guys. I got same issue resolved by following the instructions on this forum. I simply added all the required library and followed the advice from @ddten to regenerate the all the keys. Now i'm working perfectly.

[GeekSnuff]

Thanks akinsbola452000
I wasn't regenerating the keys!
phew...

[PankajVerma123]

during handshake with twitter i get error :-
Error in setup_twitter_oauth(consumer_key = consumerKey, consumer_secret = consumerSecret, :
could not find function "setup_twitter_oauth. please suggest me solution to this issue.
this is my rstudio code and i am using R 3.5.1

setting working directory

library(twitteR)
library(ROAuth)
library(plyr)
library(dplyr)
library(stringr)
library(ggplot2)
library(httr)
library(wordcloud)
library(SentimentAnalysis)
library(sentimentr)
library(RCurl)
library(openssl)
library(httpuv)
library(base64enc)
library(devtools)

oauth_endpoint(authorize = "https://api.twitter.com/oauth",
access = "https://api.twitter.com/oauth/access_token")

#connect to API
download.file(url ='http://curl.haxx.se/ca/cacert.pem', destfile ='cacert.pem')
reqURL <- 'https://api.twitter.com/oauth/request_token'
accessURL <- 'https://api.twitter.com/oauth/access_token'
authURL <- 'https://api.twitter.com/oauth/authorize'

Twitter Application

consumerKey="3GcJah1mIIDPD6c4uIW08L8YU"
consumerSecret="uevNdolvKfdCcG779UpiiD2wHTmP86kAUMqH7I9cjRuA3iJ35r"
accesstoken="869394410-vZb0G5EjJVF9STyLvVDotknPchwhcZ63zftWYyJe"
accesssecret="Ea3kWs4UCTqdNrWA76Wzall5MV2xRorrwlE8DYsc4ul5w"

cred <- OAuthFactory$new(consumerKey=consumerKey,
consumerSecret=consumerSecret,
requestURL=reqURL,
accessURL=accessURL,
authURL=authURL)
cred$handshake(cainfo = system.file('CurlSSL', 'cacert.pem', package = 'RCurl'))

There is URL in console. You need to go to it, get code and enter it on console

Authorization PIN ~DYNAMIC

save(cred, file='twitter authentication.Rdata')

load('twitter authentication.Rdata')

Once you launch the code first time, you can start from this in the future(libraries should be connected)

setup_twitter_oauth(consumer_key = consumerKey,consumer_secret = consumerSecret,
access_token = accesstoken,access_secret = accesssecret)

###*******Step 3: Performs tweets extraction and data cleaning

Harvest some tweets

some_tweets = searchTwitter("statue of unity", n=5000, since = "2017-01-01", lang="en")

some_tweets = searchTwitter("Sardar Vallab Bhai Patel",n=5000, since = "2017-01-01", lang = "en")

(n.some_tweets <- length(some_tweets))

some_tweets.df <- ldply(some_tweets, function(t) t$toDataFrame())
write.csv(some_tweets.df,"tweets.csv")

get the text

some_txt = sapply(some_tweets, function(x) x$getText())

#remove request entities
some_txt = gsub("(RT/via)((?:\b\w*@\w+)+)","", some_txt)
#remove at people
some_txt = gsub("@\w+", "", some_txt)
#remove punctuation
some_txt = gsub("[[:punct:]]", "", some_txt)
#remove numbers
some_txt = gsub("[[:digit:]]","", some_txt)

remove html links

some_txt = gsub("http\w+","", some_txt)

remove unnecessary spaces

some_txt = gsub("[\t]{2,}","", some_txt)
some_txt = gsub("^\s+|\s+$","", some_txt)

define "tolower error handling" function

try.error = function(x)
{
#creating missing values
y = NA
#try catch error
try_error = tryCatch(tolower(x), error=function(e) e)

if not an error

if (!inherits(try_error, "error"))
y = tolower(x)

result

return(y)
}

#Tower case using try.error with sapply
some_txt = sapply(some_txt, try.error)

remove NAS in some_txt

some_txt = some_txt[!is.na(some_txt)]
names(some_txt) = NULL

}

[nadeemkhan786]

Ya u must have good internet connection.

…

On Wednesday, November 28, 2018, PankajVerma123 ***@***.***> wrote: during handshake with twitter i get error :- Error in setup_twitter_oauth(consumer_key = consumerKey, consumer_secret = consumerSecret, : could not find function "setup_twitter_oauth. please suggest me solution to this issue. this is my rstudio code and i am using R 3.5.1 setting working directory library(twitteR) library(ROAuth) library(plyr) library(dplyr) library(stringr) library(ggplot2) library(httr) library(wordcloud) library(SentimentAnalysis) library(sentimentr) library(RCurl) library(openssl) library(httpuv) library(base64enc) library(devtools) oauth_endpoint(authorize = "https://api.twitter.com/oauth", access = "https://api.twitter.com/oauth/access_token") #connect to API download.file(url ='http://curl.haxx.se/ca/cacert.pem', destfile ='cacert.pem') reqURL <- 'https://api.twitter.com/oauth/request_token' accessURL <- 'https://api.twitter.com/oauth/access_token' authURL <- 'https://api.twitter.com/oauth/authorize' Twitter Application consumerKey="3GcJah1mIIDPD6c4uIW08L8YU" consumerSecret="uevNdolvKfdCcG779UpiiD2wHTmP86kAUMqH7I9cjRuA3iJ35r" accesstoken="869394410-vZb0G5EjJVF9STyLvVDotknPchwhcZ63zftWYyJe" accesssecret="Ea3kWs4UCTqdNrWA76Wzall5MV2xRorrwlE8DYsc4ul5w" cred <- OAuthFactory$new(consumerKey=consumerKey, consumerSecret=consumerSecret, requestURL=reqURL, accessURL=accessURL, authURL=authURL) cred$handshake(cainfo = system.file('CurlSSL', 'cacert.pem', package = 'RCurl')) There is URL in console. You need to go to it, get code and enter it on console Authorization PIN ~DYNAMIC save(cred, file='twitter authentication.Rdata') load('twitter authentication.Rdata') Once you launch the code first time, you can start from this in the future(libraries should be connected) setup_twitter_oauth(consumer_key = consumerKey,consumer_secret = consumerSecret, access_token = accesstoken,access_secret = accesssecret) ###********Step 3: Performs tweets extraction and data cleaning* Harvest some tweets some_tweets = searchTwitter("statue of unity", n=5000, since = "2017-01-01", lang="en") some_tweets = searchTwitter("Sardar Vallab Bhai Patel",n=5000, since = "2017-01-01", lang = "en") (n.some_tweets <- length(some_tweets)) some_tweets.df <- ldply(some_tweets, function(t) t$toDataFrame()) write.csv(some_tweets.df,"tweets.csv") get the text some_txt = sapply(some_tweets, function(x) x$getText()) #remove request entities some_txt = gsub("(RT/via)((?:\b\w*@\w+)+)","", some_txt) #remove at people some_txt = gsub("@\w+", "", some_txt) #remove punctuation some_txt = gsub("[[:punct:]]", "", some_txt) #remove numbers some_txt = gsub("[[:digit:]]","", some_txt) remove html links some_txt = gsub("http\w+","", some_txt) remove unnecessary spaces some_txt = gsub("[\t]{2,}","", some_txt) some_txt = gsub("^\s+|\s+$","", some_txt) define "tolower error handling" function try.error = function(x) { #creating missing values y = NA #try catch error try_error = tryCatch(tolower(x), error=function(e) e) if not an error if (!inherits(try_error, "error")) y = tolower(x) result return(y) } #Tower case using try.error with sapply some_txt = sapply(some_txt, try.error) remove NAS in some_txt some_txt = some_txt[!is.na(some_txt)] names(some_txt) = NULL } — You are receiving this because you were mentioned. Reply to this email directly, view it on GitHub <#137 (comment)>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AjBubIo-p0uyLnVNCdgpbi7pP7J_95dBks5uzl7mgaJpZM4LxENV> .

[PankajVerma123]

anyone please help me find the issue with my code . i didn't get solution to this problem till yet, so please help me or send me r code to extract tweet that will be working in R 3.5.1.

• i found this problem many time with different code
  Error in setup_twitter_oauth(consumer_key = consumerKey, consumer_secret = consumerSecret, :
  could not find function "setup_twitter_oauth. please suggest me solution to this issue.
  this is my rstudio code and i am using R 3.5.1