在 R 中抑制来自 zip 的消息

Question

我想在r 中抑制zip 命令输出的消息，但我找不到执行此操作的正确命令。

背景，当我在函数中使用 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 程序，因此您必须向它发出信号，不要输出消息。