Como carregar uma imagem para o SQL Server no R
Estou criando alguns gráficos que quero atualizar em uma tabela de banco de dados. O procedimento que estou seguindo é:
crie os gráficos como um arquivo png / jpeg.Leia esse arquivo como um vetor bináriosqlUpdateMeu código para as etapas 2 e 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)
Há uma tabela df_DemandPatternMaster no banco de dados com a chave primária DemandPatternID, com o registro apropriado em vigor com o valor NULL no 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)
Acabo inserindo apenas um byte de dados. Parece que a pasta vê o vetor serializado e cria um vetor com o prefixo e o texto do sufixo. Eu também tentei passar o identificador de arquivo png diretamente
pngfile <- file(<filename>, "rb")
update.query <- paste( update.query, " pngFile = '", pngfile, "' where DemandPatternID = ", , sep="")
Isso também falha.
Por favor informar.