雅皮士和乐趣。价值对于非基元数据类型

vapply能处理数字、字符和逻辑之外的数据类吗?vapply能回来吗as.日期原始类中的数据?这是我的名单:

name <- "Truman"
birth <- as.Date("1884/05/08")
death <- as.Date("1972/12/26")
no33 <-  list("name"=name"birth"=birth,"death"=death)


name <- "Eisenhower"
birth <- as.Date("1890/10/14")
death <- as.Date("1969/03/28")
no34 <- list("name"=name"birth"=birth,"death"=death)

presidents <- list(no33,no34)

lapply工作正常,但可以有效地改变日期:

lapply(1:length(presidents), FUN= function (x) presidents[[x]]$death)

sapply(1:length(presidents), FUN= function (x) presidents[[x]]$death)

vapply在将日期指定为数据类型时引发错误:

vapply(1:length(presidents), FUN= function (x)
  as.character(presidents[[x]]$death), FUN.VALUE = date(1)))

我有这一行的工作

as.Date(vapply(1:length(presidents), FUN= function (x)
 as.character(presidents[[x]]$death), FUN.VALUE = 
 character(1)))