R中的条件列表索引

strsplit（）

的输出可以如下所示：

list( c("a","b") , character(0) , c("a","b") )

for( i in seq(1,length(lst)) ){
  if (length(lst[[i]]) == 0) {
    lst[[i]] <- "nothing"
  }
}

或者，如果将表达式指定给

lst

：

> lst
[[1]]
[1] "a" "b"

[[2]]
character(0)

[[3]]
[1] "a" "b"

替换

字符（0）

项的矢量化方法是什么？我试图避免以下情况：

list( c("a","b") , character(0) , c("a","b") )

for( i in seq(1,length(lst)) ){
  if (length(lst[[i]]) == 0) {
    lst[[i]] <- "nothing"
  }
}

for（序列（1，长度（lst））中的i）{
if（长度（lst[[i]]）==0）{
lst[[i]]怎么样：

lst[sapply(lst,identical,character(0))] <- 'nothing'

lst[sappy（lst，相同，字符（0））]
lst[sappy（lst，长度）==0]