列出R中包含列表的列

Question

我正在使用sapply（或在这里重要的是lapply）来列出数据帧的类。

f<-as.POSIXct(c("2014-10-02","2016-11-05","2014-09-11"))
dd<-c(1,12,22)
fr<-c("coo","foo","doo")

df<-cbind.data.frame(f,dd,fr)

c<-sapply(df,class)

对于posixct类，这在包含2个元素的列表中的类时会产生错误。

table(c)
Error in table(c) : all arguments must have the same length

c
$`f`
[1] "POSIXct" "POSIXt" 

$dd
[1] "numeric"

$fr
[1] "factor"

显然，unlist将不起作用，因为double类将被计为2个单独的类。 如何在此处将double类折叠为单一元素？