R中的POSIXlt迭代

Question

假设我有一个POSIXct对象的输入向量：

times.input <- c(
  as.POSIXct('2013-01-01 00:00:00', tz='GMT'),
  as.POSIXct('2013-01-01 00:00:01', tz='GMT')
)
class(times.input)
# [1] "POSIXct" "POSIXt" 

一些函数(如round或trunc)将POSIXct转换为POSIXlt

unique.dates <- unique(trunc(times.input, 'days')))
class(times.rounded)
# [1] "POSIXlt" "POSIXt"

然后，如果我们试图迭代或lapply这个对象，就会发生一些奇怪的事情：

lapply(X=unique.dates, FUN=print)
# [1] 0 0
# [1] 0 0
# [1] 4 4
# [1] 1 1
# [1] 0 0
# [1] 113 113
# [1] 2 2
# [1] 0 0
# [1] 0 0

看起来，POSIXlt在内部垂直存储为向量列表，迭代遍历内部结构，而不是迭代每个对象。

我知道在这种情况下转换为POSIXct是有帮助的，因为POSIXct在内部存储为一个整数，但我认为这个解决方案很难看。

因此，我的问题是:给定POSIXlt[2]数据输入，如何在POSIXct对象上执行for循环或lapply？

Answer 1

它之所以发生，是因为lapply在列表中工作，而在help("DateTimeClasses")之后，存储是正确的

类"POSIXlt“是向量的命名列表(.)

如果您确实需要使用POSIXlt，我建议将其转换为list，例如：

times.input.L <- split(times.input, seq_along(times.input))
lapply(times.input.L, print)
[1] "2013-01-01 01:00:00 CET"
[1] "2013-01-01 01:00:01 CET"