# NOT RUN {
makeImage <- function(x) {
.C("make_Image", as.integer(x), length(x))
}
res <- dbSendQuery(con, statement)
flds <- dbColumnInfo(res)
flds[3, "Sclass"] <- makeImage
dbSetDataMappings(rs, flds)
im <- fetch(rs, n = -1)
# }
Run the code above in your browser using DataLab