mongo <- mongo.create()
if (mongo.is.connected(mongo)) {
gridfs <- mongo.gridfs.create(mongo, "grid")
gfw <- mongo.gridfile.writer.create(gridfs, "test.dat")
# store 4 bytes
mongo.gridfile.writer.write(gfw, charToRaw("test"))
# store string & LF plus 0-byte terminator
buf <- writeBin("Test\n", as.raw(1))
mongo.gridfile.writer.write(gfw, buf)
# store PI as a float
buf <- writeBin(3.1415926, as.raw(1), size=4, endian="little")
mongo.gridfile.writer.write(gfw, buf)
mongo.gridfile.writer.finish(gfw)
mongo.gridfs.destroy(gridfs)
}
Run the code above in your browser using DataLab