Skip needs to capture context

[hadley]

I think we need something like:

skip <- function(message, call = sys.call()) {
  cond <- structure(list(message = message, call = call), class = c("skip", "condition"))
  stop(cond)
}

[hadley]

And then we need a standard way of extracting the file name and line number from skip(), error() and warning().

[hadley]

Looks like the context is lost if call. = FALSE:

str(tryCatch({
  f <- function() stop("Hi!", call. = FALSE)
  f()
}, error = function(e) {
    e

  }

))

[krlmlr]

The context is available e.g. in our capture_calls() function, even with call. = FALSE. No need to modify skip(), we can simply install a handler here.

tryCatch(
  withCallingHandlers(
    stop("a", call. = FALSE),
    error = function(e) print(sys.calls())),
  error = function(e) NULL)

This would be also the way to go for #356: Simply call recover() in the calling handler (and use conditions for indicating test failues, #215 (comment)).

[hadley]

@krlmlr ok, makes sense.