r - 如何从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第一场比赛后停止。