我正在尝试从 PostgreSQL 数据库中提取数据,但时间戳字段的结果不一致。我不确定我是否正确处理了 POSIXct 结果。否则,我想我在 RPostgreSQL 包中发现了一个错误。这是复制问题的方法:
假设 postgres 数据库中有一个表,其中包含一个字段(在 PostgreSQL 中运行):
CREATE DATABASE mydb;
CREATE TABLE test_table
(
"DateTime" timestamp without time zone NOT NULL,
CONSTRAINT "pk_test_table" PRIMARY KEY ("DateTime")
)
WITH (
OIDS=FALSE
);
ALTER TABLE test_table
OWNER TO postgres;
假设有几百条记录。我将在 R 中填充它们。这是代码:
library(RPostgreSQL)
# Let's feed the table with some sequence of date/time values
date_values <- as.chron(seq(10000, 10500, 1/24))
format.chron <- function(z) {
sprintf("%04.0f-%02.0f-%02.0f %02.0f:%02.0f:00",
as.numeric(as.character(years(z))),
months(z),
as.numeric(as.character(days(z))),
as.numeric(as.character(hours(z))),
as.numeric(as.character(minutes(z))))
}
.generateInsertQuery <- function(date_values, field_name, table_name) {
insert_val <- paste(paste0("(", sQuote(format(date_values)), ")"), collapse=',')
qry <- paste("INSERT INTO", dQuote(table_name), paste0("(", dQuote(field_name), ")"), "VALUES", insert_val)
qry
}
drv <- dbDriver('PostgreSQL')
con <- dbConnect(drv, user='postgres', dbname='mydb')
qry <- .generateInsertQuery(date_values, "DateTime", "test_table")
dbSendQuery(con, qry)
如果我尝试获取这些值,则时间分量会从结果数据中剔除
res <- dbGetQuery(con, "SELECT * FROM test_table")
res[1:20,1]
然而,结果的类别是 POSIXct
class(res[,1])
如果一次获取一条记录的结果,则 hour:min 等于 00:00 的值会丢失时间分量:
rs <- dbSendQuery(con, "SELECT \"DateTime\" FROM test_table")
res_list <- list()
for(i in 1:100) res_list[i] <- fetch(rs,1)
res_list
作为一种解决方法,我一次获取结果 1 条记录,修复它们并将它们聚合到 data.frame 中。但这非常耗时,尤其是对于大型数据集。关于为什么会发生这种情况以及如何处理这个问题的任何想法?
提前致谢!