Increase depth of traceback beyond `tryCatch()` for bp* functions - possible enhancement about biocparallel HOT 1 CLOSED

g = function() stop("stopping in 'g'")
f = function(i) if (i == 2) g()
lapply(1:4, f)
traceback()
## 4: stop("stopping in 'g'") at #1
## 3: g() at #1
## 2: FUN(X[[i]], ...)
## 1: lapply(1:4, f)

bplapply(1:4, f, BPPARAM = SnowParam())
traceback()
## 4: stop(.error_bplist(res)) at bpinit.R#54
## 3: .bpinit(manager = manager, X = X, FUN = FUN, ARGS = ARGS, BPPARAM = BPPARAM, 
##        BPOPTIONS = BPOPTIONS, BPREDO = BPREDO) at bplapply-methods.R#57
## 2: bplapply(1:4, f, BPPARAM = SnowParam()) at AllGenerics.R#2
## 1: bplapply(1:4, f, BPPARAM = SnowParam())

result <- bptry(bplapply(1:4, f, BPPARAM = SnowParam()))
length(attr(result[[2]], "traceback"))
## [1] 45

attr(result[[2]], "traceback") |> tail(6) |> cat(sep = "\n")
## 4: tryCatch({
##        FUN(...)
##    }, error = handle_error)
## 3: tryCatchList(expr, classes, parentenv, handlers)
## 2: tryCatchOne(expr, names, parentenv, handlers[[1L]])
## 1: value[[3L]](cond)