在R中设置缺少的日期时间

Question

我有一个这样的日期列表：

 x
"2013-10-23T10:00"
"2013-10-23T10:09" 
"2013-10-23T00:00"
"2013-10-23"

我想设置缺少的时间，所以看起来像这样：

x
"2013-10-23 10:00:00"
"2013-10-23 10:09:00" 
"2013-10-23 23:59:59"
"2013-10-23 23:59:59"

我已经尝试过了，但是效果不佳。有办法吗？

as.POSIXct(x, format='%Y-%m-%dT%H:%M')
x = Sys.time()
library(lubridate)
x + hours(23) + minutes(59) + (59)

Answer 1

x <- c("2013-10-23T10:00", "2013-10-23T10:09", "2013-10-23T00:00", "2013-10-23")
x[nchar(x) == 10] <- paste0(x[nchar(x) == 10], 'T23:59:59')
x[nchar(x) == 16] <- paste0(x[nchar(x) == 16], ':00')
x <- as.POSIXct(x, format = "%Y-%m-%dT%H:%M:%S")
x