如何拥有固定的“锚定”到主要功能环境？

Question

在包装中，我有一个主函数，该功能称为许多其他未出现的功能，到处都有很多条件检查。

使用tidyverse错误处理时，例如，使用Awesome {cli} 软件包，您可以附加一个呼叫者环境，该环境将用于装饰该功能。该文档可用在这里。

这是一些示例代码：

main = function() f1()
f1 = function() f2()
f2 = function() cli::cli_abort("foobar", call=rlang::caller_env())
main()
#> Error in `f1()`:
#> ! foobar

^{在2022-07-03创建的 reprex package （v2.0.1.1） ）}

呼叫者不是f2（）而是其父f1（），但是错误是仍然没有信息，因为最终用户也不知道内部f1（）函数。

要拥有main（）作为结束呼叫者，我可以编写call = rlang :: Caller_env（2），它不是很可维护的，或者将呼叫者传递给呼叫者在堆叠的每个功能中的参数，这需要重构重构。

有没有办法拥有一个全局变量，该变量可以作为main（）的引用，并且可以在代码中的任何地方使用？

Answer 1

我只能想到的（hacky）选项：

1：一次继续上升1个父环境，直到您达到r_globalenv，然后返回1步。

main = function() f1()
f1 = function() f2()

f2 = function() {
  for(depth in 1:10) if(identical(rlang::caller_env(depth), globalenv())) break
  if(depth == 10) depth = 1
  cli::cli_abort("foobar", call=rlang::caller_env(depth-1))
}
main()

2：自己创建某种标识符，您可以搜索这些标识符

main = function() {
  marker = "hello!"
  f1()
}
f1 = function() f2()
f2 = function() {
  for(depth in 1:10) try( if( get('marker', envir = rlang::caller_env(depth)) == "hello!" ) break, silent = T)
  if(depth == 10) depth = 0
  cli::cli_abort("foobar", call=rlang::caller_env(depth))
}
main()

Answer 2

我终于设法完成了。

我在软件包中声明了一个全局环境，但还不够，因为my_caller变量再次造成了很多错误。

在主函数的开头，我将当前环境保存在全球环境中，作为变量，然后可以在以下子女功能中呼叫任何地方。

这是代码：

my_caller = rlang::env()

f = function(x, y){
  my_caller$env = rlang::current_env()
  g()
}
g = function(){
  h()
}
h = function(){
  rlang::abort("foobar", call=my_caller$env)
}

f(x=1, y=5)
#> Error in `f()`:
#>   ! foobar
#> Run `rlang::last_error()` to see where the error occurred.
rlang::last_error()
#> <error/rlang_error>
#>   Error in `f()`:
#>   ! foobar
#> ---
#>   Backtrace:
#>   1. global f(x = 1, y = 5)
#> Run `rlang::last_trace()` to see the full context.
rlang::last_trace()
#> <error/rlang_error>
#>   Error in `f()`:
#>   ! foobar
#> ---
#>   Backtrace:
#>   ▆
#> 1. └─global f(x = 1, y = 5)
#> 2.   └─global g()
#> 3.     └─global h()
#> 4.       └─rlang::abort("foobar", call = my_caller$env)