避免使用离开的设备

Question

我想通过函数在pdf上书写。

pdf("termolayout.pdf") 
generate_termolayout(db) 
    #This functions prints thermolayouts, but when the db is corrupted, generates errors 
dev.off() 

如何确保R运行dev.off()即使generate_termolayout失败？

Answer 1

使用on.exit：

mypdf <- function() { 
    pdf("termolayout.pdf") 
    on.exit(dev.off()) 
    stop("An error.") 
} 

mypdf() 
#Error in mypdf() : An error. 
dev.cur() 
#RStudioGD 
#2