r - 在 R 中抑制来自 zip 的消息

Question

我想抑制 zip 输出的消息r 中的命令但我找不到正确的命令来这​​样做。

背景，当我在函数中使用 zip 函数时，我不希望用户看到有关所有文件的所有信息(大约 5.000，这会使控制台困惑)。

这是我到目前为止所尝试的，但所有功能 foo显示任一 adding: hw.txt (stored 0%)或 updating: hw.txt (stored 0%)

# create a small file 
writeLines("hello world", "hw.txt")
# use the original command
zip("zip.zip", "hw.txt")

# try different options of capturing/suppressing output!

# assignment
foo1 <- function() a <- zip("zip.zip", "hw.txt")
foo1()

# capture.output
foo2 <- function() a <- capture.output(zip("zip.zip", "hw.txt"))
foo2()

# suppressMessages
foo3 <- function() suppressMessages(zip("zip.zip", "hw.txt"))
foo3()

# invisible
foo4 <- function() invisible(zip("zip.zip", "hw.txt"))
foo4()

# sink
foo5 <- function() {
 sink(tempfile())
 zip("zip.zip", "hw.txt")
 sink()
}
foo5()

是否有其他选项可以抑制 zip 的输出？ ?

Answer 1

答案将取决于使用代码的系统。在我的 Windows 系统上，我可以使用

zip("zip.zip", "hw.txt", flags="-q")

它会抑制消息，但这取决于您的系统用于处理 zip 文件的内容。由于消息来自 zip 程序，您必须通知它不要输出消息。