如何在R中下载之前确定在线文件大小？

Question

这个问题很简单，据我搜索，其他语言中也有类似的问题，但 R 中没有。

我想用 R 代码下载一个文件，但在下载之前，我想打印出下载时间的大小和估计。有没有办法直接在 R 基础上或使用curl 实用程序来执行此操作？

Answer 1

一个简单的解决方案是：

download_size <- function(url) as.numeric(httr::HEAD(url)$headers$`content-length`)

这将允许

download_size("https://cran.r-project.org/doc/manuals/r-release/R-ints.pdf")
#> [1] 452557