避免使用设备

Question

我想通过函数写一个pdf.

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

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

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