可以通过以下步骤实现:
install.packages("purrr")
library(purrr)
my_list <- list(
list(1, 2, 3),
list("a", "b", "c"),
list(error = "Something went wrong"),
list(4, 5, 6)
)
keep()
函数来过滤掉包含error元素的列表。keep()
函数接受一个列表和一个逻辑条件函数作为参数,并返回满足条件的元素。filtered_list <- keep(my_list, function(x) !inherits(x$error, "error"))
在这个例子中,我们使用了一个匿名函数作为条件函数,它检查列表中的元素是否包含error属性。如果不包含error属性,则保留该元素。
print(filtered_list)
这样,你就可以使用purrr从列表列表中删除error元素了。
注意:这里没有提及腾讯云相关产品和产品介绍链接地址,因为这些信息需要根据具体的腾讯云产品和服务来确定。
领取专属 10元无门槛券
手把手带您无忧上云