如何在 twitter R 脚本中修复 "The query parameter [expansion] is not one of [usernames,expansions,tweet.fields,user.fields]"

Question

我是运行以下代码，摘自 https://developer.twitter.com/en/docs/tutorials/getting-started-with-r-and-v2-of-the-twitter-ap 并稍作改动，因为它似乎不起作用。

library(rjson)
#https://developer.twitter.com/en/docs/tutorials/getting-started-with-r-and-v2-of-the-twitter-ap
Sys.setenv(BEARER_TOKEN="{mybearertoken}")
require(httr)
require(jsonlite)
require(dplyr)
bearer_token <- Sys.getenv("TWITTER_BEARER")
headers <- c(`Authorization` = sprintf('Bearer %s', bearer_token))
params <- list(`user.fields` = 'description',
               `expansion` = 'pinned_tweet_id')
handle <- "codewryte"
url_handle <- paste("https://api.twitter.com/2/tweets/", handle)

#url_handle <-"https://twitter.com/TwitterDev/status/1228393702244134912"
response <-
  httr::GET(url = url_handle,
            httr::add_headers(.headers = headers),
            query = params)
obj <- httr::content(response, as = "text")
x <- fromJSON(obj)

我收到以下错误：

$errors[[2]]$message
[1] "The query parameter [expansion] is not one of [usernames,expansions,tweet.fields,user.fields]"



$title
[1] "Invalid Request"

$detail
[1] "One or more parameters to your request was invalid."

$type
[1] "https://api.twitter.com/2/problems/invalid-request"

我也尝试了 https://api.twitter.com/2/users/by/username/codewryte，这是我的用户句柄，具有相同的消息。

有人知道这条消息的意思吗？我该如何解决？

Answer 1

问题是我正在发送一个需要发送字符串的列表。

response <-httr::GET(url = url_handle,
            httr::add_headers(.headers = headers),
            query="expansions=pinned_tweet_id&user.fields=created_at&tweet.fields=created_at")

我不确定为什么教程有这个列表。

如何在 twitter R 脚本中修复 "The query parameter [expansion] is not one of [usernames,expansions,tweet.fields,user.fields]"

How do I fix "The query parameter [expansion] is not one of [usernames,expansions,tweet.fields,user.fields]" in twitter R Script

api

twitter

r