Как элегантно обрабатывать ошибки в R, когда нужно очистить состояние?

Question

Что лучше всего было обрабатывать ошибки в R? Я хочу уметь как отследить трассировки стека от конечного пользователя моего сценария, так и очистить любые временные переменные и состояние, с которым я могу работать.

Так я полагаю, мой вопрос заключается в два раза:

1. Самое главное, как я правильно обрабатывать очистки состояния при обработке ошибок?
2. Как извлечь, полезную, приятную информацию из сообщений об ошибках R, без внутренних вещей, которые выплевывают?

На данный момент у меня есть что-то похожее, но (1) кажется ужасно неэлегантным, и (2) все еще дает мне ужасные сообщения об ошибках.

# Create some temporary working state and variables to clean up 
file <- "somefile" 
working.dir <- getwd() 
setwd("../") # Go somewhere else 
saf.default <- getOption("stringsAsFactors") 
options(stringsAsFactors = FALSE) 

# Now lets try to open the file, but it doesn't work (for whatever reason) 
# I want to clean up the state, stop, and wrap the error string with a nicer 
# message 
tryCatch({ 
    # Need to embed the tryCatch because we still need some of the state variables 
    # for the error message 
    tryCatch({ 
    f <- read.table(file) 
    }, error = function(err.msg) { 
    # Can't clean up here, we still need the `file variable! 
    stop("Could not open file '", file, "' with error message:\n", print(err.msg), 
     call.=FALSE) 
    }) 
}, error = function(err.msg) { 
    # Now we can clean up state 
    setwd(working.dir) 
    options(stringsAsFactors = saf.default) 
    rm(file, working.dir, saf.default, 
    envir=globalenv()) # This also seems awful? 
    stop(print(err.msg), call.=FALSE) 
}) 

# Do more stuff, get more state, handle errors, then clean up. 
# I.e can't use `finally` in previous tryCatch! 

Сообщение об ошибке из этого выходит как, все еще много некрасивых внутренностей:

# <simpleError in file(file, "rt"): cannot open the connection> 
# <simpleError: Could not open file 'somefile' with error message: 
# Error in file(file, "rt"): cannot open the connection 
> 
# Error: Could not open file 'somefile' with error message: 
# Error in file(file, "rt"): cannot open the connection 
# In addition: Warning messages: 
# 1: In file(file, "rt") : 
# cannot open file 'somefile': No such file or directory 
# 2: In stop(print(err.msg), call. = FALSE) : 
# additional arguments ignored in stop() 
> 

Answer 1

Я бы изолировать любое государство меняющийся код на свою собственную функцию, и использовать on.exit. Это гарантирует, что очистка произойдет, независимо от ошибки.

readFile <- function(.....) 
{ 
    on.exit({ 
     setwd(cur.dir) 
     options(stringsAsFactors=saf) 
    }) 
    cur.dir <- getwd() 
    saf <- getOption("stringsAsFactors") 
    setwd("new/dir") 
    options(stringsAsFactors=FALSE) 
    .... 
}