r - 如何在不产生任何输出的情况下调用 ggsave `Saving 7 x 7 in image` ？

Question

我试图压制Saving 7 x 7 in image ggsave() 的输出每当我运行它时，但似乎不可能。这可能吗？怎么做？

我尝试了以下方法，但没有任何效果:

capture.output()

sink()

更改警告选项

将其分配给变量

最小“工作”示例:

librrary(ggplot2)
df <- data.frame(gp = factor(rep(letters[1:3], each = 10)),
                      y = rnorm(30))
plot.to.be.saved <- ggplot(df) + geom_point(aes(x = gp, y = y))
sink('/dev/null')
ggsave(filename = '~/.so.pdf', plot = plot.to.be.saved)
sink()
# Saving 7 x 7 in image

options(warn=-1)

no.output.please <- ggsave(filename = '~/.so.pdf', plot = plot.to.be.saved)
# Saving 7 x 7 in image
capture.output(ggsave(filename = '~/.so.pdf', plot = plot.to.be.saved), file = 'NUL')
# Saving 7 x 7 in image

Answer 1

ggplot2:::plot_dim将此作为消息发出，因此 suppressMessages(ggsave("test.pdf", ggplot()))应该做。