makeImage <- function(x) {
.C("make_Image", as.integer(x), length(x))
}
rs <- dbExecStatement(con, sql.query)
flds <- getFields(rs)
flds[3, "Sclass"] <- makeImage
setDataMappings(rs, flds)
im <- fetch(rs, n = -1)
Run the code above in your browser using DataLab