переопределение сообщений об ошибках R

Question

Когда вызов существует из нескольких строк, потенциальная ошибка включает только первую строку match.call(), приводящую к некоторой утерянной информации и неполному предложению. Простой пример:

#proper error message: 
runif(n=1, k=5) 

#incomplete error message: 
runif(n=1, k={5}) 

Что бы способ, чтобы получить R включить полный вызов сообщение об ошибке (возможно, свернув несколько строк или так)? Меня больше всего интересует использование этого параметра tryCatch.

Answer 1

У меня был пойти на исследование объект ошибки в настройке tryCatch через:

tryCatch(runif(n=1,k={5}), 
      error = function(e) recover()) 

А потом выбрал 4-ю среду (value[[3]](cond)) для изучения e.

я заметил, что e$call был:

Browse[1]> e$call 
runif(n = 1, k = { 
    5 
}) 

Таким образом, кажется, что сообщение об ошибке просто использует эту первую строку.

Вы можете свернуть все линии вместе с:

Browse[1]> paste(deparse(e$call),collapse='') 
[1] "runif(n = 1, k = { 5})" 

Таким образом, вы можете попробовать что-то вроде:

tryCatch(runif(n=1,k={5}), 
      error = function(e) { 
      cat(sprintf('Error in %s: %s\n', 
       paste(deparse(e$call),collapse=''), 
       e$message)) 
      }) 

Но это не исправить сообщение об ошибке сам, только вызов ведущим до этого:

ошибки в runif (п = 1, K = {5}): неиспользуемый аргумент (ов) (к = {

Таким образом, «Ошибка в xxx» завершена, но «неиспользуемый аргумент xxx» по-прежнему отсутствует. Это начало, но не все так.

Я не уверен, как улучшить это (и мне также интересно узнать, возможно ли это).