当函数返回NULL时lapply()

Question

lapply()当函数没有时,是否有一种方法可以阻止为列表的每个元素返回NULL值return().

这是一个非常基本的例子:

x <- function(x) {
return(NULL) }

a.list <- list(a=1,b=2,c=3)

lapply(a.list, x)

输出是:

$a
NULL

$b
NULL

$c
NULL

我的目标是根本没有那个输出.

更新:我的使用案例如下.我正在使用lapply()抽出xtable()文本而我正在sink()使用Rnw文件.所以这个NULL输出正在扰乱我的自动化.

Answer 1

我想到两个选择:

或

trash_can <- lapply(a.list, x)

要么

invisible(lapply(a.list, x))

第一个让我不知道是否有linux的的模拟/dev/null中R,你可以用它来重定向你不想要的东西.创建变量的唯一问题trash_can是它会挂起并耗尽内存,除非你rm(trash_can).但我不认为这是一个问题.

Answer 2

你做到了

R> x <- function(x) { return(NULL) }
R> a.list <- list(a=1,b=2,c=3)
R> res <- lapply(a.list, x)
R> res
$a
NULL

$b
NULL

$c
NULL

R>

正如你要求lapply扫描列表中的所有元素一样,你很难抱怨你得到res的所有元素的结果(in )a.list.那是正确的.

但是,对于这些NULL值的好处是,在下一个聚合步骤中跳过它们是微不足道的:

R> do.call(rbind, res)
NULL
R> 

因此,NULL当数据出现问题或出现其他不规则时,我主要使用这种方法返回,因为您可以轻松地聚​​合后来的"好"结果.

Answer 3

你可以做到

a.list <- a.list[!sapply(a.list, is.null)]