call correct which= in sys.call() (#6255)

Rdatatable · Jul 15, 2024 · dc39c97 · dc39c97
1 parent bbe7563
commit dc39c97
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/translation.R b/R/translation.R
@@ -5,7 +5,7 @@ catf = function(fmt, ..., sep=" ", domain="R-data.table") {
 }
 
 raise_condition = function(signal, message, classes, immediate=FALSE, appendLF=FALSE) {
-  obj = list(message=message, call=sys.call(2))
+  obj = list(message=message, call=sys.call(sys.nframe()-2L))
   # NB: append _after_ translation
   if (appendLF) obj$message = paste0(obj$message, "\n")
   setattr(obj, "class", classes)