为什么 sqldf 将日期时间转换为 R 中的本地时间，而 data.table 没有？

Question

以下简单代码：

library(sqldf)
library(data.table)

OwnerUserId <- c(24612)
CreationDate <- c("2016-05-27 03:17:41")

DataTable <- data.table(OwnerUserId, CreationDate)

write.csv(DataTable, "DataTable.csv")

DataTable <- fread("DataTable.csv", stringsAsFactors = TRUE)

sqldf("
    SELECT OwnerUserId, CreationDate
    FROM DataTable
    WHERE OwnerUserId == 24612
  ")

DataTable[OwnerUserId == 24612, .(OwnerUserId, CreationDate),]

产生以下输出：

  OwnerUserId        CreationDate
1       24612 2016-05-27 09:17:41

> DataTable[OwnerUserId == 24612, .(OwnerUserId, CreationDate),]
   OwnerUserId        CreationDate
1:       24612 2016-05-27 03:17:41

我只是好奇这种行为是否符合预期。
如果是，那么我们如何通过 sqldf 和 data.table 得到相同的结果？

Answer 1

csv 的内容，注意没有提到任何时区

# "","OwnerUserId","CreationDate"
# "1",24612,"2016-05-27 03:17:41" 

当你读入它时，fread 将它作为一个因素，因为它只是一个字符串，你没有给它任何理由去思考。

DataTable <- fread("DataTable.csv", stringsAsFactors = TRUE)
DataTable[, str(CreationDate)]
# Factor w/ 1 level "2016-05-27 03:17:41": 1

当我运行 sqldf 时，我得到了我所期望的，它与 data.table 相同。

sqldf("
    SELECT OwnerUserId, CreationDate
    FROM DataTable
    WHERE OwnerUserId == 24612
  ")
#   OwnerUserId        CreationDate
# 1       24612 2016-05-27 03:17:41

如果我不得不猜测，我的钱会在某处通过引用进行更改。你能在新的 R 会话上运行这里的代码，看看你是否仍然得到相同的结果？

编辑：同时查看getOption("sqldf.method") 为您返回的内容。它可能使用了“name__class”，但即使这样也不太可能产生这种结果。