避免使用设备

Question

我想通过函数在pdf上写。

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

即使dev.off()失败，如何确保R运行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