[size=medium][b]#1 mongo.create[/b]
mongo <- mongo.create()
## Not run:
mongo <- mongo.create("192.168.30.170")
## End(Not run)
[b]#2 mongo.is.connected [/b]mongo.count(mongo, "xrk-advisory.advisories")
mongo <- mongo.create("192.168.30.170")
if (mongo.is.connected(mongo)) {
print(mongo.count(mongo, "xrk-advisory.advisories"))
}
[b]#3 mongo.disconnect[/b]
mongo <- mongo.create("192.168.30.170")
if (mongo.is.connected(mongo)) {
n_people <- mongo.count(mongo, "guohui.mip")
mongo.disconnect(mongo)
}
[b]#4 mongo.reconnect[/b]
if (mongo.is.connected(mongo))
mongo.reconnect(mongo)
[b]
#5 mongo.get.err[/b]
mongo.disconnect(mongo)
if (!mongo.is.connected(mongo)) {
print("Unable to connect. Error code:")
print(mongo.get.err(mongo))
}
[b]#6 mongo.get.primary [/b]:get the host
mongo <- mongo.create(c("127.0.0.1", "192.168.30.170"))
if (mongo.is.connected(mongo)) {
print(mongo.get.primary(mongo))
}
[b]#7 mongo.get.hosts[/b]:Get a lists of hosts
## Not run:
mongo <- mongo.create(c("127.0.0.1", "192.168.30.170"), name="xrk-advisory")
if (mongo.is.connected(mongo))
print(mongo.get.hosts(mongo))
## End(Not run)
[b]#8 mongo.get.socket[/b]:Get the the low-level socket number assigned to the given mongo object by mongo.create().
mongo <- mongo.create("192.168.30.170")
if (mongo.is.connected(mongo))
print(mongo.get.socket(mongo))
[b]#9 mongo.get.timeout[/b]:Set the timeout value for network operations on a mongo connection.
mongo <- mongo.create("192.168.30.170")
if (mongo.is.connected(mongo)) {
mongo.set.timeout(mongo, 2000L)
timeout <- mongo.get.timeout(mongo)
if (timeout != 2000L)
error("expected timeout of 2000");
}
[b]#10 mongo.get.databases [/b]
mongo <- mongo.create()
if (mongo.is.connected(mongo)) {
print(mongo.get.databases(mongo))
mongo.destroy(mongo)
}
[b]#11 mongo.get.database.collections,[/b]
mongo <- mongo.create()
if (mongo.is.connected(mongo)) {
print(mongo.get.database.collections(mongo, "guohui")) #列出表列表
mongo.destroy(mongo)
}[/size]
mongo <- mongo.create()
## Not run:
mongo <- mongo.create("192.168.30.170")
## End(Not run)
[b]#2 mongo.is.connected [/b]mongo.count(mongo, "xrk-advisory.advisories")
mongo <- mongo.create("192.168.30.170")
if (mongo.is.connected(mongo)) {
print(mongo.count(mongo, "xrk-advisory.advisories"))
}
[b]#3 mongo.disconnect[/b]
mongo <- mongo.create("192.168.30.170")
if (mongo.is.connected(mongo)) {
n_people <- mongo.count(mongo, "guohui.mip")
mongo.disconnect(mongo)
}
[b]#4 mongo.reconnect[/b]
if (mongo.is.connected(mongo))
mongo.reconnect(mongo)
[b]
#5 mongo.get.err[/b]
mongo.disconnect(mongo)
if (!mongo.is.connected(mongo)) {
print("Unable to connect. Error code:")
print(mongo.get.err(mongo))
}
[b]#6 mongo.get.primary [/b]:get the host
mongo <- mongo.create(c("127.0.0.1", "192.168.30.170"))
if (mongo.is.connected(mongo)) {
print(mongo.get.primary(mongo))
}
[b]#7 mongo.get.hosts[/b]:Get a lists of hosts
## Not run:
mongo <- mongo.create(c("127.0.0.1", "192.168.30.170"), name="xrk-advisory")
if (mongo.is.connected(mongo))
print(mongo.get.hosts(mongo))
## End(Not run)
[b]#8 mongo.get.socket[/b]:Get the the low-level socket number assigned to the given mongo object by mongo.create().
mongo <- mongo.create("192.168.30.170")
if (mongo.is.connected(mongo))
print(mongo.get.socket(mongo))
[b]#9 mongo.get.timeout[/b]:Set the timeout value for network operations on a mongo connection.
mongo <- mongo.create("192.168.30.170")
if (mongo.is.connected(mongo)) {
mongo.set.timeout(mongo, 2000L)
timeout <- mongo.get.timeout(mongo)
if (timeout != 2000L)
error("expected timeout of 2000");
}
[b]#10 mongo.get.databases [/b]
mongo <- mongo.create()
if (mongo.is.connected(mongo)) {
print(mongo.get.databases(mongo))
mongo.destroy(mongo)
}
[b]#11 mongo.get.database.collections,[/b]
mongo <- mongo.create()
if (mongo.is.connected(mongo)) {
print(mongo.get.database.collections(mongo, "guohui")) #列出表列表
mongo.destroy(mongo)
}[/size]