mongo <- mongo.create()
if (mongo.is.connected(mongo)) {
buf <- mongo.bson.buffer.create()
mongo.bson.buffer.append(buf, "city", "St. Louis")
query <- mongo.bson.from.buffer(buf)
# Find the first 1000 records in collection people
# of database test where city == "St. Louis"
cursor <- mongo.find(mongo, "test.people", query, limit=1000L)
# Step though the matching records and display them
while (mongo.cursor.next(cursor))
print(mongo.cursor.destroy(cursor))
mongo.cursor.destroy(cursor)
}
Run the code above in your browser using DataLab