使用 httr 和 GET 的 Twitter API答案

【问题标题】：Twitter API using httr and GET使用 httr 和 GET 的 Twitter API
【发布时间】：2021-05-04 18:03:53
【问题描述】：

我正在尝试使用 Twitter API 获取推文（我知道允许您收集推文的软件包，但对于我的任务，我需要使用他们自己的 API）。

我设置了我的应用程序并拥有凭据。但我被困在GET 阶段：

我正在使用this 构建我的查询，但我猜问题出在令牌中......

library(httr)
library(jsonlite)

twitter_token <- create_token(
  app = appname,
  consumer_key = key,
  consumer_secret = secret)

url<-"https://api.twitter.com/1.1/search/tweets.json?q=rstats&src=typed_query"


res=GET(url, add_headers(
  'Authorization'=paste("Bearer ", twitter_token))
)

我得到的错误是

Error in as.vector(x, "character") : 
  cannot coerce type 'environment' to vector of type 'character'

我怎样才能让它工作？请！！！！搜索论坛/推特

【问题讨论】：

即使我使用 twitter_token[["credentials"]][["oauth_token"]] 获取实际令牌并将其替换为 res=GET(url, add_headers( Authorization=paste("Bearer" , "REALTOKENFROMCOPYANDPASTE")) ) 我收到 401 错误...请帮忙！！！

标签： r api rest twitter

【解决方案1】：

成功了！！！

app_keys <- openssl::base64_encode(paste0(key, ":", secret))

r <- httr::POST("https://api.twitter.com/oauth2/token",
                httr::add_headers(Authorization = paste0("Basic ", app_keys)),
                body = list(grant_type = "client_credentials"))
bearer <- httr::content(r, encoding = "UTF-8")

url<-"https://api.twitter.com/1.1/search/tweets.json?q=rstats&src=typed_query"


res=GET(url, add_headers(
  Authorization=paste0("Bearer ", bearer$access_token))
)

【讨论】：