mongo <- mongo.create()
if (mongo.is.connected(mongo)) {
# construct a query containing invalid operator
buf <- mongo.bson.buffer.create()
mongo.bson.buffer.start.object(buf, "age")
mongo.bson.buffer.append(buf, "$bad", 1L)
mongo.bson.buffer.finish.object(buf)
query <- mongo.bson.from.buffer(buf)
result <- mongo.find.one(mongo, "test.people", query)
if (is.null(result)) {
print(mongo.get.server.err(mongo))
print(mongo.get.server.err.string(mongo))
}
}
Run the code above in your browser using DataLab