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@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. ______________________________________________ R-help@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.