mongo <- mongo.create()
if (mongo.is.connected(mongo)) {
# try adding a duplicate record when index doesn't allow this
db <- "test"
ns <- "test.people"
mongo.index.create(mongo, ns, '{"name":1}', mongo.index.unique)
buf <- mongo.bson.buffer.create()
mongo.bson.buffer.append(buf, "name", "John")
mongo.bson.buffer.append(buf, "age", 22L)
b <- mongo.bson.from.buffer(buf)
mongo.insert(mongo, ns, b);
buf <- mongo.bson.buffer.create()
mongo.bson.buffer.append(buf, "name", "John")
mongo.bson.buffer.append(buf, "age", 27L)
b <- mongo.bson.from.buffer(buf)
mongo.insert(mongo, ns, b);
err <- mongo.get.last.err(mongo, db)
print(mongo.get.server.err(mongo))
print(mongo.get.server.err.string(mongo))
mongo.reset.err(mongo, db)
}
Run the code above in your browser using DataLab