Независимо от того, думаете ли вы, что это ужасная идея, вот рабочий ответ, который я смог собрать из этого сообщения
## open connection
library(RODBC)
channel <- odbcConnect("")
## generate a plot and save it to a temp file
x <- rnorm(100,0,1)
hist(x, col="light blue")
savePlot("temp.jpg", type="jpeg")
## read back in the temp file as binary
plot_binary <- paste(readBin("temp.jpg", what="raw", n=1e6), collapse="")
## insert it into a table
sqlQuery(channel, paste("insert into test values (1, x'",plot_binary,"')", sep=""))
## close connection
odbcClose(channel)
Перед внедрением я обязательно позабочусь о том, чтобы решить, следует ли это использовать, а не использовать файловую систему серверов.