有没有一种简单的方法(即函数)来确定列表中的嵌套级别?
我知道有str
可以用来获取此信息。但有没有什么东西可以简单地返回结果呢?我可以使用这样的函数来获取所有级别的名称(递归)吗?
一个小的递归函数可以为你做到这一点:
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。可读性失败。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)