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

MichaelChirico · web-flow · commit dc39c97e1667 · 2024-07-15T10:49:53.000-07:00
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)

Original file line number	Diff line number	Diff line change
`@@ -5,7 +5,7 @@ catf = function(fmt, ..., sep=" ", domain="R-data.table") {`
`5`	`5`	`}`
`6`	`6`
`7`	`7`	`raise_condition = function(signal, message, classes, immediate=FALSE, appendLF=FALSE) {`
`8`		`- obj = list(message=message, call=sys.call(2))`
	`8`	`+ obj = list(message=message, call=sys.call(sys.nframe()-2L))`
`9`	`9`	`# NB: append _after_ translation`
`10`	`10`	`if (appendLF) obj$message = paste0(obj$message, "\n")`
`11`	`11`	`setattr(obj, "class", classes)`