subscript out of bounds - time vector

[julie323]

I'm using the time data type - time vector. I trying to get the seconds, minutes and hours to turn up individual. I know that if use [[1]] it should give me seconds but it gives the whole date and time and when I do [[2]] it comes with an error.

time_vector
[1] "2021-10-28 12:46:48 BST"
time_vector[1]
[1] "2021-10-28 12:46:48 BST"
time_vector[[1]]
[1] "2021-10-28 12:46:48 BST"
time_vector[[2]]
Error in FUN(X[[i]], ...) : subscript out of bounds

[nirgrahamuk]

This time_vector, has one element so [[2]] should fail.
What is the class / are the classes of this time_vector ?

class(time_vector)

[julie323]

class(time_vector)
[1] "POSIXlt" "POSIXt"

[nirgrahamuk]

Oh great. So it returns values of the class just the same as when we might call Sys.time() to see our systems current time.
There is a helpful package lubridate that make it convenient for me to work with time and dates.
I can do

library(lubridate)

(mytime <- Sys.time())

(datepart <- date(mytime))
(hourpart <- hour(mytime))
(minpart <- minute(mytime))
(secpart <- second(mytime))