[R] get caller's name

[Ernest Adrogué]

 3/02/11 @ 14:30 (-0200), Henrique Dallazuanna escriu:
> Try this:
> 
> g <- function(.x) tryCatch(stop.if.dims(.x), error=function(e)sprintf("Error
> in %s: %s",  deparse(sys.call(1)), e$message))
> g(rbind(2, 3))

This is it. Thanks!

Cheers.
-- 
Ernest