如何在 R 中抑制 download.file()“正在尝试 URL ...”消息？

Question

我知道该函数有一个 quiet 参数，但我试图在 quiet = FALSE 时隐藏该消息。

这可能很奇怪，但我在测试我正在编写的包时遇到了这个问题。我在设置quiet = FALSE 时使用testthat::expect_message()，但该功能实际上并没有抑制消息（它应该，实际上它通常与“正常”消息一起使用）。

我用suppressMessages() 尝试过，但没有按预期工作：

url <- "https://github.com/ipeaGIT/gtfstools/raw/master/inst/extdata/spo_gtfs.zip"
download.file(url, destfile = tempfile(), quiet = FALSE)
#> trying URL 'https://github.com/ipeaGIT/gtfstools/raw/master/inst/extdata/spo_gtfs.zip'
#> Content type 'application/zip' length 191108 bytes (186 KB)
#> downloaded 186 KB

suppressMessages(download.file(url, destfile = tempfile(), quiet = FALSE))
#> trying URL 'https://github.com/ipeaGIT/gtfstools/raw/master/inst/extdata/spo_gtfs.zip'
#> Content type 'application/zip' length 191108 bytes (186 KB)
#> downloaded 186 KB

关于如何抑制它的任何想法，最好不更改任何options？这不是危及生命的情况，但它让我很好奇。

Answer 1

suppressMessages() 不起作用，因为进度文本不是 R message()，它是系统库的标准输出，download.file() 将实际下载委托给（例如 libcurl、wget 或wininet)。 quiet = TRUE 通过设置该工具的适当命令行选项绕过此问题。

您可以将标准输出从 R 控制台转移到带有sink() 的文件。既然不需要，可以使用nullfile()打开与平台相关的空设备的文件连接：

url <- "https://github.com/ipeaGIT/gtfstools/raw/master/inst/extdata/spo_gtfs.zip"

nullcon <- file(nullfile(), open = "wb")
sink(nullcon, type = "message")
download.file(url, destfile = tempfile(), quiet = FALSE)
sink(type = "message")
close(nullcon)

请注意，倒数第二行非常重要——它结束了转移。没有它，R 会话中的所有进一步消息都将发送到/dev/null。

还请记住来自?sink 的以下警告：

请勿将针对接收器打开的连接用于任何其他目的。该软件会阻止您无意中关闭此类软件。

除非您了解实现它的源代码，否则不要接收消息流，从而了解其中的陷阱。

我个人认为这种方法风险太大，无法在包中使用，尤其是当quiet = TRUE 选项可用时。