r - 确保图形设备关闭

Question

我正在关闭设备(此处: pdf() )我正在使用 dev.off() 在我的函数末尾绘制。但是，如果函数/循环由于错误而终止，则设备保持打开状态。当一个函数被重复调用时，这会导致相当多的开放设备；和文件句柄。

即使功能失败，如何确保设备关闭？

我记得我曾经看过如何做到这一点，但我不记得了。

Answer 1

on.exit()是为这样的情况而设计的。在非交互式设置中打开(文件或其他)连接时使用它是一种很好的做法。

f <- function() {
    pdf(tempfile()) # tempfile() so example doesn't clutter up working directory.
    on.exit(dev.off())
    plot(randomNonExistentObjectName)
}

f()
# Error in plot(randomNonExistentObjectName) : 
#   object 'randomNonExistentObjectName' not found

dev.list()
# NULL