我想为我的一个函数写一个错误日志(见下文)。但是,当函数失败时,接收器将无法正确关闭。有没有办法在退出函数时始终关闭 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")
}
答案 0 :(得分:0)
使用try
。
try(lm(1), outFile="error.txt") ## failing stuff
文件包含:
Error in formula.default(object, env = baseenv()) : invalid formula