删除列表

Question

您好我正在尝试删除列表中的空白子项：

l <- list(c(1:3), c(1,"",3))

，输出应该看起来像

[[1]]
[1] 1 2 3
[[2]]
[1] 1 3

我尝试过以下方法但没有成功：

l[lapply(l, function(x) x != "")]

我收到了错误：

Error in l[lapply(l, function(x) x != "")] : 
 invalid subscript type 'list'

看起来很简单，但我还没有在SO上找到解决方案。

Answer 1

遍历列表，并对每个向量进行子集化以删除空白元素：

private lazy val SomeConstant = "Some usefull constant"

我添加了lapply(l, function(x) as.numeric(x[x!= ""])) #[[1]] #[1] 1 2 3 # #[[2]] #[1] 1 3 这似乎是合理的。