我在下面有一个示例函数,它将日期作为字符串读取并将其作为日期对象返回。如果它读取一个无法转换为日期的字符串,它会返回一个错误。
testFunction <- function (date_in) {
return(as.Date(date_in))
}
testFunction("2010-04-06") # this works fine
testFunction("foo") # this returns an error
现在,我想使用 lapply 并将此函数应用于日期列表:
dates1 = c("2010-04-06", "2010-04-07", "2010-04-08")
lapply(dates1, testFunction) # this works fine
但是,如果我想在两个好日期中间的一个字符串返回错误时将函数应用于列表,那么处理这个问题的最佳方法是什么?
dates2 = c("2010-04-06", "foo", "2010-04-08")
lapply(dates2, testFunction)
我想我想在那里尝试捕获,但是有没有办法在要求 lapply 继续并阅读第三个日期的同时捕获“foo”字符串的错误?