前端之家收集整理的这篇文章主要介绍了
如何使用自动增量主键将数据从R写入PostgreSQL表？，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
我在Postgre
sql数据库中有一个表,它有一个BIGSERIAL
自动递增主键.使用以下
方法重新创建
CREATE TABLE foo
(
"Id" bigserial PRIMARY KEY,"SomeData" text NOT NULL
);
我想通过RPostgresql包从R向该表附加一些数据.在R中,数据不包括Id列,因为我希望数据库生成这些值.
dfr <- data.frame(SomeData = letters)
这是我用来尝试编写数据的代码：
library(RPostgresql)
conn <- dbConnect(
"Postgresql",user = "yourname",password = "your password",dbname = "test"
)
dbWriteTable(conn,"foo",dfr,append = TRUE,row.names = FALSE)
dbDisconnect(conn)
不幸的是,dbWriteTable抛出一个错误：
## Error in postgresqlgetResult(new.con) :
## RS-DBI driver: (could not Retrieve the result : ERROR: invalid input Syntax for integer: "a"
## CONTEXT: COPY foo,line 1,column Id: "a"
## )
错误消息并不完全清楚,但我将其解释为R试图将SomeData列的内容传递给数据库中的第一列(即Id).
我应该如何将数据传递给Postgresql,以便自动生成Id列？
@H_
404_20@
从hrbrmstr
评论中的帖子中,我找到了
a hack来完成这项工作.
在RPostgresql包中的postgresqlWriteTable中,您需要替换该行
sql4 <- paste("COPY",postgresqlTableRef(name),"FROM STDIN")
同
sql4 <- paste(
"COPY ","(",paste(postgresqlQuoteId(names(value)),collapse = ","),") FROM STDIN"
)
请注意,引用变量(未包含在原始hack中)对于传递区分大小写的列名称是必需的.
这是一个脚本：
body_lines <- deparse(body(RPostgresql::postgresqlWriteTable))
new_body_lines <- sub(
'postgresqlTableRef(name),"FROM STDIN")','postgresqlTableRef(name),paste(shQuote(names(value)),") FROM STDIN")',body_lines,fixed = TRUE
)
fn <- RPostgresql::postgresqlWriteTable
body(fn) <- parse(text = new_body_lines)
while("RPostgresql" %in% search()) detach("package:RPostgresql")
assignInNamespace("postgresqlWriteTable",fn,"RPostgresql")
