[R] determining a parent function name

[Martin Morgan]

Hi sundar --

maybe

> myerr <- function(err) err$call
> foo <- function() stop()
> tryCatch({ foo() }, error=myerr)
foo()

suggests a way to catch errors without having to change existing code
or re-invent stop?

Martin


Sundar Dorai-Raj <sundar.dorai-raj at pdf.com> writes:

> Hi, Vladimir,
>
> Sorry, didn't see this reply. .Traceback <- NULL doesn't work because of 
> the warning in ?traceback.
>
> Warning:
>
>       It is undocumented where '.Traceback' is stored nor that it is
>       visible, and this is subject to change.  Prior to R 2.4.0 it was
>       stored in the workspace, but no longer.
>
> Thanks,
>
> --sundar
>
> Vladimir Eremeev said the following on 5/31/2007 5:10 AM:
>> 
>> 
>> Vladimir Eremeev wrote:
>>> Does
>>>   tail(capture.output(traceback()),n=1)
>>> do what you want?
>>>
>>> that is 
>>>
>> 
>> Hmmm... Seems, no...
>> 
>> Having the earlier error() definition and
>> 
>> bar<-function() error("asdasdf")
>> ft<-function() bar()
>> 
>> 
>> 
>>> ft()
>> 
>> I get in the tcl/tk window:
>> 
>> Error in bar(): asdasdf
>> 
>>> bar()
>> 
>> I get in the tcl/tk window:
>> 
>> Error in ft(): asdasdf
>> 
>>> I get in the tcl/tk window:
>> 
>> Error in bar(): asdasdf
>> 
>> Some kind of the stack flushing is needed.
>> .Traceback<-NULL did not help
>
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

-- 
Martin Morgan
Bioconductor / Computational Biology
http://bioconductor.org