如何在不使用sink（）的情况下在R中记录错误？

Question

sink(type='message')很好，但返回值NULL对我不利。
然后，我问如何在不使用sink的情况下将错误记录到文件中？

Answer 1

不知道我是否完全理解你的问题，但如果你想捕捉一个错误，然后控制事件应该发生的错误，你想看看?tryCatch。这就是说，这里是一个例子，你如何捕捉函数中引发的错误并将其作为字符串返回。

编辑以显示如何，如果你喜欢

f <- function(...){ 
    tryCatch(is.character(...), error = function(e){ 
     var_e <- capture.output(e, file = "errors", append = TRUE) 
     readLines("errors") ## just to push the output to our variable at the terminal 
    }) 
} 

通过传递一个不带引号的串入功能强制错误将捕捉到的警告作为一个字符对象变量a

写入文件

> a <- f(noquotes) 
> a 
[1] "<simpleError in doTryCatch(return(expr), name, parentenv, handler): object 'noquotes' not found>" 
> typeof(a) 
[1] "character"