Как загрузить изображение на SQL Server в R

Question

Я создаю некоторые графики, которые я хочу обновить в таблице базы данных. Следующей процедурой является:

1. создавать графики как файл png/jpeg.
2. Прочитайте этот файл как бинарный вектор
3. 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, с соответствующими запись с использованием значения NULL в поле pngFile.

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

В итоге я вставляю только байт данных. Причина в том, что паста видит сериализованный вектор и создает вектор с префиксом & суффикса. Я также попытался прохождения pngfile обращаться непосредственно

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="") 

Answer 2

Я не пробовал это с базой данных, но в последнее время у меня были некоторые проблемы при сериализации в/из текстового файла. Вот question I asked that might be related. Вы пытались использовать переключатель ascii = T с сериализацией? Затем попробуйте как с rawToChar, так и без него.

У меня нет простой среды для проверки кода, но меня интересует то, что вы придумали. Я работаю над некоторым кодом, где в конечном итоге я буду сериализовать объекты и поместить их в БД. Я просто не до этого.