TwitteR, ROAuth и Windows: зарегистрируйтесь в порядке, но проверка сертификата не выполнена

Ответ 1

Try:

getUser("Rbloggers")$followersCount
Error in function (type, msg, asError = TRUE)  : 
  SSL certificate problem, verify that the CA cert is OK. Details:
error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed
getUser("Rbloggers",cainfo="cacert.pem")$followersCount
[1] 2752

Каждое действие get/update требует добавления cainfo="cacert.pem". Это раздражает.

Ответ 2

Я получил ошибку, описанную выше в прошлом, но это сработало для меня.

#=======================================================================================
## ON windows, we need to dowload the certificate for OAUTH
## NOTE:  you will need to setup an app on Twitter
## dev.twitter.com <- get your KEY/SECRET
#=======================================================================================


##########################################################################
## Load packages
##########################################################################

library(twitteR)
library(ROAuth)

## set the directory
setwd("~/your/directory/here")


## Windows users need to get this file
download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem")



##########################################################################
## Authenticate with Twitter
##########################################################################

## authenticate with the API
## requires that you have registered an app
KEY <- "KEY"
SECRET <-"SECRET"


## create an object that will save the authenticated onbject -- we can for later sessions
## will need to navigate to website and type in data to generate the file
## NOTE:  Only need to do this part once!!!
cred <- OAuthFactory$new(consumerKey = KEY, 
    consumerSecret = SECRET,
    requestURL = "https://api.twitter.com/oauth/request_token", 
    accessURL = "https://api.twitter.com/oauth/access_token", 
    authURL = "https://api.twitter.com/oauth/authorize")
cred$handshake(cainfo="cacert.pem")


## load the cred object in later sessions and simply pass to the registerTwitterOAuth
## After this file is saved, you only need to load the cred object back into memory
save(cred, file="twitter authentication.Rdata")


## Authenticate with Twitter = this is an important peice of code
registerTwitterOAuth(cred)


##########################################################################
## lets test out what our session limits look like
##########################################################################
rate.limit <- getCurRateLimitInfo()

## If return 350, Authenticated session = more API calls allowed / hour
rate.limit$hourlyLimit
rate.limit$remainingHits
rate.limit$resetTime

Ответ 3

ОБНОВЛЕНИЕ Это временное решение, см. ответ @flz и мой отредактированный вопрос для окончательного решения.

Поскольку я разместил вопрос, я использовал этот простой цикл в качестве обходного пути (правильные решения по-прежнему приветствуются!). Это займет много времени, но, по крайней мере, это даст мне данные. Возможно, кто-то еще найдет это полезным.

# load library
library(twitteR)
#
# Search Twitter for your term
s <- searchTwitter('#rstats', n=1500) 
# convert search results to a data frame
df <- do.call("rbind", lapply(s, as.data.frame)) 
# extract the usernames
users <- unique(df$screenName)
users <- sapply(users, as.character)
# make a data frame for the loop to work with 
users.df <- data.frame(users = users, 
                       followers = "", stringsAsFactors = FALSE)
#
# loop to populate users$followers with follower 
# count obtained from Twitter API
for (i in 1:nrow(users.df)) 
    {
    # tell the loop to skip a user if their account is protected 
    # or some other error occurs  
    result <- try(getUser(users.df$users[i])$followersCount, silent = TRUE);
    if(class(result) == "try-error") next;
    # get the number of followers for each user
    users.df$followers[i] <- getUser(users.df$users[i])$followersCount
    # tell the loop to pause for 60 s between iterations to 
    # avoid exceeding the Twitter API request limit
    print('Sleeping for 60 seconds...')
    Sys.sleep(60); 
    }
#
# Now inspect users.df to see the follower data

Ответ 4

Кажется, что проблема с ROauth 0.9.1, если вы используете эту версию, вы должны взглянуть на это сообщение разработчиком twitteR (это сработало для меня): http://lists.hexdump.org/pipermail/twitter-users-hexdump.org/2012-March/000075.html

Ответ 5

Другие ответы сосредоточены на download.file() для обновления файла cacert. Это не должно иметь значения, но вы можете попробовать загрузить последнюю версию Curl и использовать ее для обновления файла cacert, например...

url <- "http://curl.askapache.com/download/curl-7.23.1-win64-ssl-sspi.zip"
tmp <- tempfile( fileext = ".zip" )
download.file(url,tmp)
unzip(tmp, exdir = tempdir())

system( paste0( tempdir() , "/curl http://curl.haxx.se/ca/cacert.pem -o " , tempdir() , "/cacert.pem" ) )

# You can use this freshly downloaded cacert file and you can also set ssl.verifypeer = FALSE
twitCred$handshake( cainfo = paste0( tempdir() , "/cacert.pem" ) , ssl.verifypeer = FALSE )
registerTwitterOAuth(Cred)

Ответ 6

Я не уверен, что я просто не вижу этого правильно, но я думаю, что это приведет к тому, что ваш файл будет сохранен в cacert.perm, но вы скажете рукопожатие посмотреть в cacert.pem

> download.file(url="http://curl.haxx.se/ca/cacert.pem",
>              destfile="cacert.perm")
> twitCred$handshake(cainfo="cacert.pem")

Ответ 7

Вы пытались использовать полный путь к cacert.pem в своем рукопожатии? Следующее решение проблемы для меня в Ubuntu:

twitCred$handshake(cainfo="/etc/ssl/certs/cacert.pem")

Ответ 8

Эта ошибка довольно устойчива даже на моем компьютере, но использование cainfo = "cacert.pm" во всех функциях устраняет эту проблему или обходит ее. Не слишком уверен.

Ответ 9

Наконец, я получил решение, попробуйте этот метод

library(devtools)
install_github("twitteR", username="geoffjentry")
library(twitteR)

api_key = "aaa"
api_secret = "bbb"
access_token = "ccc"
access_token_secret = "ddd"
setup_twitter_oauth(api_key,api_secret,access_token,access_token_secret)

Ответ 10

Я думаю, что самый быстрый способ:

0) Настройте свои ключи api на Api.Twitter
1) Используйте hadley httr Twitter oauth
2) Спасите вас twitter_token в RDS
3) Загрузка на сервер или в любом месте, где вы хотели бы использовать 4) Просто используйте команду GET с этим токеном
5) Вы можете получить 300 000 исков в час на законных основаниях в Twitter.