相关疑难解决方法(0)

我正在创建一些我想更新到数据库表中的图形。我遵循的程序是：

1. 将图形创建为 png/jpeg 文件。
2. 将该文件作为二进制向量读取
3. 更新

我的第 2 步和第 3 步代码：

pngfile <- file(<filename>, "rb")
N <- 1e6
repeat{
  pngfilecontents <- readBin(pngfile, what="raw", n=N)
  if(length(pngfilecontents) == N) N <- 5 * N else break
}
close(pngfile)

数据库中有一个表 df_DemandPatternMaster，主键为 DemandPatternID，适当的记录在 pngFile 字段中为 NULL 值。

update.query <- "update df_DemandPatternMaster set "
update.query <- paste( update.query, " pngFile = '", serialize(pngfilecontents, NULL) , "' where DemandPatternID = ", , sep="")
d <- sqlQuery(connection, update.query)

我最终只插入了一个字节的数据。原因似乎是 paste 看到序列化的向量并创建一个带有前缀和后缀文本的向量。我也试过直接传递png文件句柄

pngfile <- file(<filename>, "rb")
update.query <- …