出现错误退出函数时自动sink()

Question

我想为我的一个函数写一个错误日志（见下文）。但是，当函数失败时，接收器将无法正确关闭。有没有办法在退出函数时始终关闭 sinks()？

some_function <- function(){


 con <- file("test.log")
 sink(con, append=TRUE,type="output",split=TRUE)
 sink(con, append=TRUE,type="message")

 >> do some stuff that may fail. 

 sink() 
 sink(type = "message")

}

Answer 1

使用try。

try(lm(1), outFile="error.txt")  ## failing stuff

文件包含：

Error in formula.default(object, env = baseenv()) : invalid formula