如何在不使用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"