如何从R中的列表中删除函数?

Question

>我有两个函数的列表：

foo <- function() { print('foo') }
bar <- function() {}
l <- list(foo, bar)

如何在不知道函数索引的情况下删除函数 foo？

我已经尝试过这个(获取子设置的索引(：

> which(l == foo)
Error in l == foo : 
comparison (1) is possible only for atomic and list types

有没有简单的方法可以从列表中删除非原子而不循环？

Answer 1

假设问题中的代码，使用identical我们可以像这样获取它的索引：

Position(function(fun) identical(fun, foo), l)
## [1] 1

或

which(sapply(l, identical, foo))
## [1] 1

如果您对函数有所了解，则可以运行它们并根据输出进行选择。 对于示例，这有效：

Position(function(f) length(f()), l)
## [1] 1

如果您可以控制列表的创建，一个简单的方法是使用名称创建列表：

l2 <- list(foo = foo, bar = bar)
nms <- setdiff(names(l2), "foo")

免职

如果我们知道foo曾经l那么

l[-ix]

或者在l2的情况下：

l2[nms]

或使用 @Gregor 给出的替代方案：

Filter(function(x) !identical(x, foo), l)

边缘情况

如果foo可能不在l则需要先检查该条件。 如果没有匹配项，Position和match返回NA(或为任一匹配项指定nomatch参数(，which返回intetger(0)不匹配项。

如果foo可以多次出现在l中，请使用上面的which替代方法。

其他

请注意，which和Filter检查每个位置，但match并在第一场比赛后停止Position。