bash – 在批处理模式下用R禁止输出“空设备”

我有一些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设备1.一旦有很多绘图完成，或更复杂的脚本绘制到一些文件，这将获得是一个真正的麻烦。

有没有办法抑制这个消息？

关于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()调用dev.off()为所有设备，并不返回任何东西。