mongo <- mongo.create()
if (mongo.is.connected(mongo)) {
    gridfs <- mongo.gridfs.create(mongo, "grid")
    mongo.gridfs.store.file(gridfs, "tests/test.R", "test.R")
    gf <- mongo.gridfs.find(gridfs, "test.R")
    if( !is.null(gf) ){
      print(mongo.gridfile.get.md5(gf))
      mongo.gridfile.destroy(gf)
    }
    mongo.gridfs.destroy(gridfs)
}
Run the code above in your browser using DataLab