Como adicionar / subtrair tempo de um tempo POSIXlt enquanto mantém sua classe em

Estou manipulando algunsPOSIXlt Objetos DateTime. Por exemplo, gostaria de adicionar uma hora:

my.lt = as.POSIXlt("2010-01-09 22:00:00")
new.lt = my.lt + 3600
new.lt
# [1] "2010-01-09 23:00:00 EST"
class(new.lt)
# [1] "POSIXct" "POSIXt" 

A coisa é que eu queronew.lt ser umPOSIXlt objeto. Eu sei que eu poderia usaras.POSIXlt para convertê-lo novamente emPOSIXlt, mas existe uma maneira mais elegante e eficiente de conseguir isso?

questionAnswers(4)

yourAnswerToTheQuestion