Как добавить / вычесть время из времени POSIXlt, сохранив его класс в R?

Я управляю некоторыми объектами POSIXlt DateTime. Например, я хотел бы добавить час:

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" 

Дело в том, что я хочу, чтобы new.lt был быть объектом POSIXlt . Я знаю, что могу использовать as.POSIXlt , чтобы преобразовать его обратно в POSIXlt , но есть ли более элегантный и эффективный способ добиться этого ?