从twitter中获取数据

你能帮我从twitter上获取数据吗。很多研究都不能解决这个问题

library(twitteR)  
library(ROAuth)  
library(RCurl)  
library(pacman)  
library(devtools)  
library(rjson)  
library(httr)

    consumerKey="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"  
    consumerSecret="xxxxxxxxxxxxxxxxxxxxxxxxxxxx"  
    access_token <- "xxxxxxxxxxxxxxxxxxxxxxxxxxxx"  
    access_secret <- "Xxxxxxxxxxxxxxxxxxxxxxxxxxx"



if (!require('pacman')) install.packages('pacman')
pacman::p_load(twitteR, ROAuth, RCurl)

options(RCurlOptions = list(cainfo = system.file('CurlSSL', 'cacert.pem', package = 'RCurl')))

reqURL = 'https://api.twitter.com/oauth/request_token'  
accessURL = 'https://api.twitter.com/oauth/access_token'  
authURL = 'https://api.twitter.com/oauth/authorize'

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

我得到这个错误。如何解决这个问题

library(twitteR)  
library(ROAuth)  
library(RCurl)  
library(pacman)  
library(devtools)  
library(rjson)  
library(httr)

    consumerKey="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"  
    consumerSecret="xxxxxxxxxxxxxxxxxxxxxxxxxxxx"  
    access_token <- "xxxxxxxxxxxxxxxxxxxxxxxxxxxx"  
    access_secret <- "Xxxxxxxxxxxxxxxxxxxxxxxxxxx"



if (!require('pacman')) install.packages('pacman')
pacman::p_load(twitteR, ROAuth, RCurl)

options(RCurlOptions = list(cainfo = system.file('CurlSSL', 'cacert.pem', package = 'RCurl')))

reqURL = 'https://api.twitter.com/oauth/request_token'  
accessURL = 'https://api.twitter.com/oauth/access_token'  
authURL = 'https://api.twitter.com/oauth/authorize'

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

[1] “使用基于浏览器的身份验证”

---

您是否在Twitter（）上设置了应用程序？这就是我让它工作的方式，你在那里进行授权，授权会给出相关的密钥，然后使用twitteR，它就这么简单了

setup_twitter_oauth(consumer_key = consumer_key,
                consumer_secret = consumer_secret,
                access_token = access_token,
                access_secret = access_secret)

然后检索时间线：

userTimeline(user = "@BBCBreaking")

---

我已经安装了一个应用程序，但我认为我能够生成一些推文。谢谢

userTimeline(user = "@BBCBreaking")