A simpler way using only base functions. x<- list(Sys.Date(),Sys.Date()+1) xx <- as.Date(as.numeric(x)) str(x) str(xx)