抑制“空设备” 在批处理模式下使用 R 输出

Question

我有许多 bash 脚本，它们调用 R 脚本来绘制内容。 类似这样的：

#!/bin/bash
R --vanilla --slave <<RSCRIPT
cat("Plotting $1 to $2\n")
input <- read.table("$1")
png("$2")
plot(as.numeric(input[1,]))
dev.off()
RSCRIPT

问题是，尽管有 --slave，但对 dev.off() 的调用仍会打印消息 null device 1。 一旦完成了很多绘图，或者对于绘制到多个文件的更复杂的脚本，这就会变得非常麻烦。

有什么办法可以抑制这个消息吗？

Answer 1

我不知道有什么充分的理由，dev.off() 与 png() 等设备相关函数不同，它返回一个值：“新设备的编号和名称活动设备。” 该值是回显到标准输出的值。

因此，只需将其放在某个地方即可抑制它，即

garbage <- dev.off()

Answer 2

R 的好处之一是您可以查看许多函数的源代码：

> dev.off
function (which = dev.cur()) 
{
    if (which == 1) 
        stop("cannot shut down device 1 (the null device)")
    .Internal(dev.off(as.integer(which)))
    dev.cur()
}
<environment: namespace:grDevices>

因此它调用 .Internal(dev.off(...)) 然后返回 dev.cur()，这我想如果您打开了多个设备，这样您就知道哪一个设备处于活动状态，这会很有用。 您可以在脚本中使用 .Internal(dev.off(as.integer(dev.cur()))) ，甚至修补 dev.off 以仅返回dev.cur() 的值（如果不是空设备），并将补丁发送给 R 的维护者。

此外，graphics.off() 调用 < code>dev.off() 适用于所有设备，并且不返回任何内容。

Answer 3

最近遇到了同样的问题，并注意到这里的答案中没有提到另一种可能性：

invisible(dev.off())

这将隐藏 dev.off() 的输出，并且不会像将输出分配给 < code>garbage 变量：garbage <- def.off() 会。

Answer 4

另一种选择是使用 sink() 并将所有内容输出到日志文件，这样您就可以在需要时检查绘图是否有效。

Answer 5

您可以使用 littler 代替，这是 a) 一种更简单的方法写 R '脚本' 和 b) 抑制输出，这样你就会得到 dev.off 静默的副作用：

$ foo.r /tmp/foo.txt /tmp/foo.png
Plotting /tmp/foo.txt to /tmp/foo.png
$ cat /tmp/foo.r
#!/usr/bin/r
cat("Plotting", argv[1], "to", argv[2], "\n")
input <- read.table(argv[1])
png(argv[2])
plot(as.numeric(input[1,]))
dev.off()
$

Rscript 可能也会工作； 我倾向于选择较小的。