[R] determining a parent function name

[Sundar Dorai-Raj]

Thanks! That's the answer I was looking for.

--sundar

Ismail Onur Filiz said the following on 5/31/2007 12:23 PM:
> Hi,
> 
> On Wednesday 30 May 2007 14:53:28 Sundar Dorai-Raj wrote:
>> error <- function(...) {
>>    msg <- paste(..., sep = "")
>>    if(!length(msg)) msg <- ""
>>    if(require(tcltk, quiet = TRUE)) {
>>      tt <- tktoplevel()
>>      tkwm.title(tt, "Error")
>>      tkmsg <- tktext(tt, bg = "white")
>>      tkinsert(tkmsg, "end", sprintf("Error in %s: %s", "???", msg))
>>      tkconfigure(tkmsg, state = "disabled", font = "Tahoma 12",
>>                  width = 50, height = 3)
>>      tkpack(tkmsg, side = "bottom", fill = "y")
>>    }
>>    stop(msg)
>> }
> 
> as.character(sys.call(-1)[[1]]) works for me.
> 
> Best...
> 
> ______________________________________________
> 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.