r - 确定R中的嵌套级别？

Question

有没有一种简单的方法（即函数）来确定列表中的嵌套级别？
我知道有str可用于获取此信息。但是，有什么可以简单地返回结果吗？我可以使用这样的功能来（递归地）获取所有级别的列表的名称吗？

Answer 1

一个小的递归函数可以为您做到这一点：

depth <- function(this,thisdepth=0){
  if(!is.list(this)){
    return(thisdepth)
  }else{
    return(max(unlist(lapply(this,depth,thisdepth=thisdepth+1))))    
  }
}

如果您有 package:testthat，请使用以下测试集：

l1=list(1,2,3)
l2=list(1,2,l1,4)
l3=list(1,l1,l2,5)

require(testthat)
expect_equal(depth(l1),1)
expect_equal(depth(l2),2)
expect_equal(depth(l3),3)

在变量名中使用小写L的歉意。可读性失败。