[R] determining a parent function name

[Ismail Onur Filiz]

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...