dendrapply错误：C堆栈使用率太接近限制

Question

我正在以这种方式使用R的dendrapply ：

dendrapply(dendro, function(n) utils::str(attributes(n)))

其中dendro是一个'dendrogram' with 2 branches and 5902 members total, at height 2 。

一段时间后，它运行并因以下错误而崩溃：

Error: C stack usage  7971524 is too close to the limit

任何想法？

Answer 1

看来您已经出现了无限递归的情况，因为没有在函数中返回节点。 如果您只是想将每个节点的属性结构打印到控制台，请在函数中返回n ，如下所示：

print_attrs <- function(n){
  utils::str(attributes(n))
  return(n)
}
dendrapply(dendro, print_attrs)

给定树状图的大小，这似乎最终可能会淹没控制台。 为每个节点的属性创建一个平坦的（非嵌套的）列表有些棘手，但是一种方法是使用超赋值运算符<<-来修改函数内函数的父框架中的变量：

list_attrs <- function(x){
  out <- vector(mode = "list", length = attr(x, "members"))
  counter <- 1
  get_node_attrs <- function(n){
    out[[counter]] <<- attributes(n)
    counter <<- counter + 1
    return(n)
  }
  tmp <- dendrapply(x, get_node_attrs)
  return(out)
}
myattributes <- list_attrs(dendro)

请注意，在使用<<-不要在全局环境中修改变量。 有关更多信息，请参见此帖子。