R：承诺已经在评估中

Question

我知道您可能已经厌倦了再次回答同一个问题，但我仍然收到severalotherquestions 中讨论的错误：

promise 已经在评估中：递归默认参数引用或早期问题？

尽管我确实遵循了在前面添加 "." 的“繁琐”建议：

show.large.objects.threshold <- 100000
show.large.objects.exclude <- c("closure")
show.large.objects <- function (.envir = sys.frame(),
                                threshold = show.large.objects.threshold,
                                exclude = show.large.objects.exclude) {
  for (n in print(ls(.envir, all.names = TRUE))) tryCatch({
    o <- get(n,envir = .envir)
    s <- object.size(o)
    if (s > threshold && !(typeof(o) %in% exclude)) {
      cat(n,": ")
      print(s,units="auto")
    }
  }, error = function(e) { cat("n=",n,"\n"); print(e) })
}
show.large.objects.stack <- function (.threshold = show.large.objects.threshold,
                                      skip.levels = 1,# do not examine the last level - this function
                                      .exclude = show.large.objects.exclude) {
  for (level in 1:(sys.nframe()-skip.levels)) {
    cat("*** show.large.objects.stack(",level,") ")
    print(sys.call(level))
    show.large.objects(.envir = sys.frame(level), threshold = .threshold, exclude = .exclude)
  }
}

但我仍然收到错误：

> f <- function () { c <- 1:1e7; d <- 1:1e6; print(system.time(show.large.objects.stack())) }
> f()
*** show.large.objects.stack( 1 ) f()
[1] "c" "d"
c : 38.1 Mb
d : 3.8 Mb
*** show.large.objects.stack( 2 ) print(system.time(show.large.objects.stack()))
[1] "..." "x"  
n= ... 
<simpleError in get(n, envir = .envir): argument "..." is missing, with no default>
n= x 
<simpleError in get(n, envir = .envir): promise already under evaluation: recursive default argument reference or earlier problems?>
*** show.large.objects.stack( 3 ) system.time(show.large.objects.stack())
[1] "expr"    "gcFirst" "ppt"     "time"   
n= expr 
<simpleError in get(n, envir = .envir): promise already under evaluation: recursive default argument reference or earlier problems?>
          user         system        elapsed 
    0 (0.00ms)     0 (0.00ms) 0.002 (2.00ms) 

1. 那么，我还做错了什么？
2. 我真的需要.envir 中的. 吗？ .exclude 和 .threshold 呢？
3. 为什么会出现argument "..." is missing, with no default 错误？
4. 为什么会出现promise already under evaluation 错误？

谢谢！

Answer 1

当f被调用时，一个5层的堆栈被构建到show.large.objects，它开始从顶部开始评估帧的内容。

f
  -> print
     -> system.time
        -> show.large.objects.stack
           -> show.large.objects

1 级

f()

这里一切正常。

2 级

print(system.time(show.large.objects.stack()))

当您在其框架上调用ls(.envir, all.names) 时，您会得到

[1] "..." "x"  

其中... 丢失并在您对其调用get 时引发错误3，而x = system.time(show.large.objects.stack()) 当前正在被评估并引发错误4。

3 级

system.time(show.large.objects.stack())

谁的ls给你

[1] "expr"    "gcFirst" "ppt"     "time"   

其中expr = show.large.objects.stack() 当前仍在评估中，并引发另一个错误 4。

4级

show.large.objects.stack()

ls 没有粗略的东西，并且没有错误地完成。

底线

show.large.frames() 必须单独进行评估，而不是作为任何函数的参数，否则会引发错误。为什么不让它自己打印呢？

我觉得这很有帮助

> debug(show.large.objects)
> f()
Browse[2]> lapply(sys.frames(), ls)
[[1]]
[1] "c" "d"

[[2]]
[1] "x"

[[3]]
[1] "expr"    "gcFirst" "ppt"     "time"   

[[4]]
[1] "level"       "skip.levels"

[[5]]
[1] "exclude"   "threshold"