Error messages do not include a source reference for composite function calls

[iofarm]

When abort() is called by a function that is called as an argument to another function, $call does not have a "srcref" attribute and the error does not display the source location.

Compare the output of g1() and g2() in this example:

options(rlang_backtrace_on_error = "none")

script <- tempfile(fileext = ".R")
cat('
f <- function() {
  abort("Something\'s wrong...")
}

g1 <- function() {
  f()
}

g2 <- function() {
  identity(f())
}
', file = script)
source(script)

g1()

#> Error in `f()` at /Rtmp5iDn8E/file8ae03bd8bd93.R:7:3:
#> ! Something's wrong...

g2()

#> Error in `f()`:
#> ! Something's wrong...

This seems to be a limitation in how R does not preserve source references for promise expressions:

h <- \() sys.call() %@% srcref

(\() h())()

#> \() h()

(\() identity(h()))()

#> NULL

[iofarm]

The source reference for the outer function call could potentially be extracted from the call stack, but I suppose that giving this source reference in the error message could be misleading. For example, in this {dplyr} example, the source reference would point to the line with summarize() instead of group_by():

summarize(                      # first line of srcref for outer function
  group_by(mtcars, notacolumn), # but the error is here
  mean(mpg)
)

On the other hand, printing the call and rough location may be more helpful than just the call. There is already similar behavior in cases such as this one where the source reference points to the line with group_by() instead of summarize():

group_by(mtcars, cyl) |>        # first line of srcref
  summarize(mean(notacolumn))   # but the error is here