r - 如何在 R 中将图像上传到 SQL Server

Question

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

将图形创建为 png/jpeg 文件。

将该文件作为二进制向量读取

sqlUpdate

我的第 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 <- paste( update.query, " pngFile = '", pngfile, "' where DemandPatternID = ", , sep="")

这也失败了。

请指教。

Answer 1

也许如果您将 pngfilecontents 向量折叠为单个字符串。就像是:

update.query <- "update df_DemandPatternMaster set "
update.query <- paste( update.query, " pngFile = '", paste(pngfilecontents, collapse="") , "' where DemandPatternID = ", sep="")