我有一些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()为所有设备，并不返回任何东西。
