R：从 Twitter 数据中自动“翻译”缩短的 URL

Question

我正在寻找一种将缩短的 URL 从 Twitter 自动“翻译”为原始 URL 的方法。

我使用以下代码抓取了几个 Twitter 时间线：

tweets <- userTimeline("exampleuser", n = 3200, includeRts=TRUE)
tweets_df <- tbl_df(map_df(tweets, as.data.frame))

然后我将缩短的 URL 与推文的其余部分分开，这样我的数据框中就有一个单独的列，其中只包含缩短的 URL。

现在我正在寻找一种方法来自动抓取所有这些 URL，这些 URL 重定向到各个网站，并获得一个包含原始（即未缩短的）URL 的新列。

有人知道我如何在 R 中做到这一点吗？

谢谢， 曼努埃尔

Answer 1

您可以使用httr 包。

httr::HEAD("URL") 将在第一行给你一个响应，然后你可以进行通常的清理以获取 URL-s。