将所有POSIXct / POSIXlt列转换为Date

Question

我正在尝试在R中加载多个数据帧，并且所有数据库都以POSIXct格式获得至少一个列（dateCreated）。一些数据帧有多个POSIXct列。我想将所有POSIXct列转换为日期。

a<-sapply(i, is.POSIXct)
i[a]<-lapply(i[a], as.Date)

我还没有找到像is.POSIXct这样的功能。有什么帮助吗？

Answer 1

您可以尝试：

i[] <- lapply(i, function(x) if(inherits(x, "POSIXct")) as.Date(x) else x)

请注意我们如何利用i[]跳过第一个sapply。