删除不匹配的嵌套列表组件

时间:2015-12-02 20:40:30

标签: r recursion nested

假设我有一个像这样的嵌套列表

rapply

我希望删除所有与名称向量(此处为字符)不匹配的元素,但如果没有匹配项,我还想删除整个嵌套组件。所以,例如,使用## Just keep the branches that have an "a" value keeps <- "a" ## Pass this function to rapply f <- function(x) if(any(unlist(x) %in% keeps)) x else NULL res <- rapply(lst, f, how="replace") str(res) # List of 2 # $ a:List of 1 # ..$ b:List of 2 # .. ..$ : chr "a" # .. ..$ : NULL # $ c:List of 1 # ..$ : NULL 我有这个

c

所以,我希望整个rapply列表被切割。我不认为我可以通过一次# a.py from .b import * class A(object): def func_one(): """Does stuff using `func_two` from `B`.""" some_b = B ... some_b.func_two() # ... 操作来做到这一点吗?如果没有,这将是一个很好的方法。

0 个答案:

没有答案