R：润滑剂的 dst() 未按预期工作

Question

我怀疑我在做一些非常愚蠢的事情，但我无法让lubridate中的dst函数按预期工作。

library(lubridate)
x <- c("2016-01-01", "2016-06-01")
dst(x) # Returns c(FALSE, TRUE)
dst(as.Date(x)) # Returns c(FALSE, FALSE)

在这两种情况下，我期望的结果都是c(FALSE, TRUE).但是，只有当我传递字符向量而不是Date对象时，我才能dst预期的结果。我使用的是OS X，我目前的时区是PST（America/Los_Angeles）。

Answer 1

dst()调用一段代码，它本质上是：

c(NA, FALSE, TRUE)[as.POSIXlt(x)$isdst + 2]

默认情况下，as.POSIXlt为：

as.POSIXlt(x=, tz="")

。默认情况下，这将占用您的系统时区。因此，鉴于您在洛杉矶的位置，让我们看看：

as.POSIXlt(x, tz="America/Los_Angeles")
#[1] "2016-01-01 PST" "2016-06-01 PDT"
c(NA, FALSE, TRUE)[as.POSIXlt(x, tz="America/Los_Angeles")$isdst + 2]
#[1] FALSE  TRUE

一切都很好。万岁。现在，让我们尝试使用as.Date(x)

as.POSIXlt(as.Date(x))
#[1] "2016-01-01 UTC" "2016-06-01 UTC"
as.POSIXlt(as.Date(x), tz="America/Los_Angeles")
#[1] "2016-01-01 UTC" "2016-06-01 UTC"

哦。因此，as.POSIXlt不能很好地处理Date对象，并且总是返回UTC而不是本地时区，并且似乎忽略了任何tz=参数。而且由于UTC不遵守任何夏令时，因此您最终将始终返回FALSE。

查看 R 源代码，情况似乎确实如此。在 https://svn.r-project.org/R/trunk/src/main/datetime.c 中，您可以找到：

# R call:
#> as.POSIXlt.Date
#function (x, ...) 
#.Internal(Date2POSIXlt(x))
# source code:
#SEXP attribute_hidden do_D2POSIXlt(SEXP call, SEXP op, SEXP args, SEXP env)
#{
#...
setAttrib(ans, s_tzone, mkString("UTC"));

。作为硬编码字符串。