使用包httr,twitteR和streamR检索缓存的oauth令牌

Question

我发现使用twitter API进行身份验证的唯一方法如下:

library(twitteR)

setup_twitter_oauth(consumer_key = "a", 
                consumer_secret = "b", 
                access_token = "c", 
                access_secret = "d")

运行之后,我可以在twitteR中使用所有函数.但是,我还想使用streamR包,它需要令牌作为OAuth对象:

filterStream("tweets.json", track = c("Obama", "Biden"), timeout = 20, oauth=my_oauth)

从我收集的内容来看,上面的setup_twitter_oauth函数是一些httr函数的包装器,用于获取我的授权令牌.此令牌作为名为".httr-oauth"的文件缓存在我的工作目录中.我的问题是:如何将此文件加载到R中,以便获得可以与streamR一起使用的OAuth对象？

Answer 1

使用 readRDS()

readRDS('.httr-oauth')
$xxxx0x000xxxx00000x0xx0x000000xx


 request:   https://api.twitter.com/oauth/request_token
 authorize: https://api.twitter.com/oauth/authenticate
 access:    https://api.twitter.com/oauth/access_token
 twitter
  key:    xxxxxxxxxx0xxxxxxxxxxxxxx
  secret: 
 oauth_token, oauth_token_secret, user_id, screen_name

通过$long-alphanumeric-hash该访问权限访问列表中的环境$credentials和$oauth_token/$oauth_token_secret