如何使用 academictwitteR 包获取完整的 RT 推文文本？

Question

我正在尝试使用 academictwitteR 包获取特定时间段内所有提及奥巴马或特朗普的推文和转推。我面临的问题是每次转推都带有“...”而不是全文（所需输出）。这是我用来执行此操作的代码。

  variable <-
      get_all_tweets(
        query = c("Obama", "Trump"),
        start_tweets = "2010-01-01T00:00:00Z",
        end_tweets = "2022-05-11T00:00:00Z",
        n = 100000)

我做了一些研究，发现了这个 post (When I use the package AcademicTwitterR and function 'get_all_tweets' it seems to return the shortened version of the original tweet)，其中询问如何使用 academictwitteR 包避免缩短推文，但我不明白答案与解决方案的实施。例如，此代码显示为解决方案：bind_tweets(data_path = "tweetdata") %>% as_tibble 我不知道把它放在我的代码中的什么地方。谁能给我一个完整的代码示例来处理这个问题？

Answer 1

我们的想法是将推文下载为 json，而不是立即将它们绑定到数据框中，这显然会截断转发。

variable <-
      get_all_tweets(
        query = c("Obama", "Trump"),
        start_tweets = "2010-01-01T00:00:00Z",
        end_tweets = "2022-05-11T00:00:00Z",
        n = 100000,
        data_path = "tweetdata",
        bind_tweets = FALSE)

然后可以通过以下方式获取原始数据：

tweet_data <- bind_tweets(data_path = "tweetdata", output_format = "raw")

如何使用 academictwitteR 包获取完整的 RT 推文文本？

How to get full RT tweet text with academictwitteR package?

twitter

r