Установить отсутствующую дату и время в 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