ROAuth不再用于支持httr?[推特API]
我在AWS“Ubuntu服务器12.04.2 LTS”上运行R Studio,并通过浏览器访问R Studio 当我尝试使用带有代码的包ROAuth不再用于支持httr?[推特API],r,twitter,twitter-oauth,rstudio,rstudio-server,R,Twitter,Twitter Oauth,Rstudio,Rstudio Server,我在AWS“Ubuntu服务器12.04.2 LTS”上运行R Studio,并通过浏览器访问R Studio 当我尝试使用带有代码的包ROAuth在Twitter API上进行身份验证时: credential<-OAuthFactory$new(consumerKey="xxxxx", consumerSecret="xxxxx", requestURL="https:/
ROAuth
在Twitter API上进行身份验证时:
credential<-OAuthFactory$new(consumerKey="xxxxx",
consumerSecret="xxxxx",
requestURL="https://api.twitter.com/oauth/request_token",
accessURL="https://api.twitter.com/oauth/access_token",
authURL="https://api.twitter.com/oauth/authorize")
credential$handshake()
registerTwitterOAuth(credential)
但是我找不到任何进一步的解释 显然,在我发布此消息之前,twitteR软件包已经更改,因此新的身份验证方法是
setup_twitter_oauth(CUSTOMER_KEY, CUSTOMER_SECRET, ACCESS_TOKEN, ACCESS_secret, credentials_file=NULL)
请参见我在使用setup\u twitter\u oauth功能时遇到一些问题。 我运行以下代码,在运行setup_twitter_oauth函数或加载凭证文件后,没有获取对象 然后我加载cred_1.RData文件,得到一个似乎没有用的sig objetc 我在windows上安装了github版本的软件包
rm(list = ls(,all=T))
setwd("D:\\TWEETS\\cuenta_1")
library(twitteR)
library(httr)
# Credenciales
consumer_key = "xxxxxxxxxxxxxxxx"
consumer_secret = "xxxxxxxxxxxxxxxx"
access_token = "xxxxxxxxxxxxxxxxxxx"
access_secret = "xxxxxxxxxxxxxxxx"
credentials_file = "cred_1.RData"
setup_twitter_oauth(consumer_key, consumer_secret, access_token, access_secret, credentials_file)
load_twitter_oauth("cred_1.RData")
ls()
> ls()
[1] "access_secret" "access_token" "consumer_key" "consumer_secret"
[5] "credentials_file"
> load("cred_1.RData")
>
> ls()
[1] "access_secret" "access_token" "consumer_key" "consumer_secret" "credentials_file" "load_twitter_oauth" "set_oauth_sig"
[8] "sig"
>
> print(sig)
Config:
List of 1
$ signature:function (method, url)
我对
设置\u twitter\u oauth()函数有一些问题。我运行了下面的代码,它对我来说没有任何错误
library(RCurl)
require(twitteR)
library(ROAuth)
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 <- "XXXXXXX"
api_Secret <- "XXXXXXXXXXXXXXXXX"
twitCred <- OAuthFactory$new(consumerKey=api_key,
consumerSecret=api_secret,
requestURL=reqURL,
accessURL=accessURL,
authURL=authURL
)
twitCred$handshake()
以下几点对我很有用:
packages <- c("twitteR","ROAuth")#"openssl","base64enc"
### checking if packages are already installed and installing if not
check.install.load.Package<-function(package_name){
if(!package_name%in%installed.packages()){
install.packages(package_name)
}
library(package_name,character.only = TRUE)
}
for(package in packages){
check.install.load.Package(package)
}
api_key = "XX" # your api_key
api_secret = "XX" # your api_secret
access_token = "XX" # your access_token
access_token_secret = "XX" # your access_token_sceret
credential<-OAuthFactory$new(consumerKey=api_key,
consumerSecret=api_secret,
requestURL="https://api.twitter.com/oauth/request_token",
accessURL="https://api.twitter.com/oauth/access_token",
authURL="https://api.twitter.com/oauth/authorize")
credential$handshake()
setup_twitter_oauth(api_key,api_secret,access_token,
access_token_secret)
search.string <- "#RohingyaTerrorReality"
no.of.tweets <- 60
RohingyaTerrorReality.Tweets <- searchTwitter(search.string, n=no.of.tweets,lang="en",)
df <- do.call("rbind", lapply(RohingyaTerrorReality.Tweets, as.data.frame))
View(df)
library("twitteR")
library("ROAuth")
download.file(url= "http://curl.haxx.se/ca/cacert.pem", destfile= "cacert.pem")
credentials <- OAuthFactory$new(consumerKey='XXXXXXXXXXXXXXXXXX',
consumerSecret='XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
requestURL='https://api.twitter.com/oauth/request_token',
accessURL='https://api.twitter.com/oauth/access_token',
authURL='https://api.twitter.com/oauth/authorize')
credentials$handshake(cainfo="cacert.pem")
save(credentials, file="twitter authentication.Rdata")
load("twitter authentication.Rdata")
setup_twitter_oauth(credentials$consumerKey, credentials$consumerSecret,
credentials$oauthKey, credentials$oauthSecret)
packages以下是为我工作的R脚本:
packages <- c("twitteR","ROAuth")#"openssl","base64enc"
### checking if packages are already installed and installing if not
check.install.load.Package<-function(package_name){
if(!package_name%in%installed.packages()){
install.packages(package_name)
}
library(package_name,character.only = TRUE)
}
for(package in packages){
check.install.load.Package(package)
}
api_key = "XX" # your api_key
api_secret = "XX" # your api_secret
access_token = "XX" # your access_token
access_token_secret = "XX" # your access_token_sceret
credential<-OAuthFactory$new(consumerKey=api_key,
consumerSecret=api_secret,
requestURL="https://api.twitter.com/oauth/request_token",
accessURL="https://api.twitter.com/oauth/access_token",
authURL="https://api.twitter.com/oauth/authorize")
credential$handshake()
setup_twitter_oauth(api_key,api_secret,access_token,
access_token_secret)
search.string <- "#RohingyaTerrorReality"
no.of.tweets <- 60
RohingyaTerrorReality.Tweets <- searchTwitter(search.string, n=no.of.tweets,lang="en",)
df <- do.call("rbind", lapply(RohingyaTerrorReality.Tweets, as.data.frame))
View(df)
library("twitteR")
library("ROAuth")
download.file(url= "http://curl.haxx.se/ca/cacert.pem", destfile= "cacert.pem")
credentials <- OAuthFactory$new(consumerKey='XXXXXXXXXXXXXXXXXX',
consumerSecret='XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
requestURL='https://api.twitter.com/oauth/request_token',
accessURL='https://api.twitter.com/oauth/access_token',
authURL='https://api.twitter.com/oauth/authorize')
credentials$handshake(cainfo="cacert.pem")
save(credentials, file="twitter authentication.Rdata")
load("twitter authentication.Rdata")
setup_twitter_oauth(credentials$consumerKey, credentials$consumerSecret,
credentials$oauthKey, credentials$oauthSecret)
library(“twitteR”)
图书馆(“ROAuth”)
下载.file(url=”http://curl.haxx.se/ca/cacert.pem,destfile=“cacert.pem”)
资格证书