The codes and results shown below:
(p <- as.POSIXct(c("2017-09-21 UTC", "2017-09-22 UTC")))
[1] "2017-09-21 PDT" "2017-09-22 PDT"
as.Date(p)
[1] "2017-09-21" "2017-09-22"
(d <- sapply(p, as.Date))
[1] 17430 17431
Why the sapply returns a numeric vector?
R version 3.4.1 (2017-06-30)