Estoy creando algunos gráficos que quiero actualizar en una tabla de base de datos. El procedimiento que estoy siguiendo es:

cree los gráficos como un archivo png / jpeg.Lee ese archivo como un vector binariosqlUpdate

Mi código para los pasos 2 y 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)

Hay una tabla df_DemandPatternMaster en la base de datos con la clave principal DemandPatternID, con el registro apropiado en su lugar con el valor NULL en el campo pngFile.

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

Termino insertando solo un byte de datos. La razón por la que parece es que pegar ve el vector serializado y crea un vector con el texto de prefijo y sufijo. También he intentado pasar el controlador de archivo png directamente

pngfile <- file(<filename>, "rb")
update.query <- paste( update.query, " pngFile = '", pngfile, "' where DemandPatternID = ", , sep="")

Esto también falla.

Por favor avise.