From romain.francois at dbmail.com  Tue Oct 27 17:51:22 2009
From: romain.francois at dbmail.com (Romain Francois)
Date: Tue, 27 Oct 2009 17:51:22 +0100
Subject: [Rd] recover and "called from" information
Message-ID: <4AE7250A.3090209@dbmail.com>

Hello,

When using recover, the called from information is always "eval(expr, 
envir, enclos)", which is not particularly useful.

 > f <- function( ){ g <- function(){ stop( "ouch") }; g() }
 > options( error = recover )
 > f()
Error in g() : ouch

Enter a frame number, or 0 to exit

1: f()
2: g()

Selection: 1
Called from: eval(expr, envir, enclos)


I'm using the following heuristic to guess if this was called from 
recover and grab the actual call, and was wondering if something similar 
could/should be integrated into R:

getcall <- function(){
	calls <- sys.calls()
	calls <- calls[ -length(calls) ]
	funs <- sapply( calls, function(x) as.character(x)[1L] )
	frames <- sys.frames()
	frames <- frames[ -length(frames) ]
	nc <- length(calls)
	
	if( nc >= 3L &&
		identical( tail(funs, 2L ), rep("eval", 2L) ) &&
		identical(
			paste( as.character( calls[[ nc - 1L ]] ), collapse = "--" ),
			"eval--quote(browser())--sys.frame(which)" )
			) {
		
		w <- get( "which", sys.frame(nc- 2L ), inherits = FALSE )
		if( typeof( w ) == "integer" && length(w) == 1L ){
			return( calls[[w]] )
		}
		
	}
	calls[[nc]]
	
}

I'd be happy to work on an internal version instead of this one in R.

Romain


-- 
Romain Francois
Professional R Enthusiast
+33(0) 6 28 91 30 30
http://romainfrancois.blog.free.fr
|- http://tr.im/BcPw : celebrating R commit #50000
|- http://tr.im/ztCu : RGG #158:161: examples of package IDPmisc
`- http://tr.im/yw8E : New R package : sos



[Rd] recover and "called from" information
Romain Francois