Question

dbWriteTable中的RPostgreSQL函数似乎忽略了列名，并尝试按原样将数据从R推送到PostgreSQL。当附加到现有表时，这是有问题的，特别是如果在R对象中未指定的列应该给出默认值。

RMySQL通过将列名添加到LOAD DATA LOCAL INFILE来非常优雅地处理这种情况。当dbWriteTable时，如何强制RPostgreSQL为append=TRUE中未指定的列分配默认值？

以下是一个例子：

CREATE TABLE test (
    column_a varchar(255) not null default 'hello',
    column_b integer not null 
    );
insert into test values (DEFAULT, 1);

产生下表：

select * from test;
 column_a | column_b 
----------+----------
 hello    |        1
(1 row)

我想从R：

向此表插入一些新数据

require('RPostgreSQL')
driver <- PostgreSQL()
con <- dbConnect(driver, host='localhost', dbname='development')
set.seed(42)
x <- data.frame(column_b=sample(1:100, 10))
dbWriteTable(con, name='test', value=x, append=TRUE, row.names=FALSE)
dbDisconnect(con)

但是我收到以下错误：

Error in postgresqlgetResult(new.con) : 
  RS-DBI driver: (could not Retrieve the result : ERROR:  missing data for 
column "column_b"
CONTEXT:  COPY test, line 1: "92"
)

这是因为我没有指定column_a字段，因此dbWriteTable正在尝试将column_b的数据写入column_a。我想强制dbWriteTable使用column_a的默认值，并将column_b正确写入column_b。

我应该只在以下情况下失败：

我未能指定没有默认值的列
我尝试插入表格中不存在的列
我将错误的数据类型插入现有列

Answer 1

我有完全相同的问题，这解决了它。

查看包caroline中的dbWriteTable2功能。

然后，代码允许您使用add_id = TRUE将没有id列的数据帧写入数据库，例如

dbWriteTable2(con_psql,"domains",data_domains,append=TRUE,overwrite=FALSE,row.names=FALSE,add.id=TRUE)

如何在RPostgreSQL中使用dbWriteTable（...，append = TRUE）的列默认值

1 个答案: