我在理解如何更新子文档的特定字段(而不是整个子文档)方面遇到了一些问题。
我似乎已经理解了如何在子文档中查询某些字段值,但是我对于如何构建仅需要更改所查询字段的BSON文档感到迷茫。
还是觉得我还没有完全理解“简单的MongoDB语法”如何转换为R语法以及update operators如何正常工作。在这方面的任何提示都将非常感激。
pkg <- "rmongodb"
lib <- file.path(R.home(), "library")
if (!suppressWarnings(require(pkg, lib.loc=lib, character.only=TRUE))) {
install.packages(pkg, lib=lib)
require(pkg, lib.loc=lib, character.only=TRUE)
}
db <- "__test"
ns.0 <- "user"
ns <- paste(db, ns.0, sep=".")
con <- mongo.create(db=db)
mongo.remove(mongo=con, ns=ns)
此部分仅确保数据库中的一些示例数据。它只是一个辅助部分,你可以跳过精神上!继续“查询”部分并查看“实际查询”以了解可能难以从下面的R代码中掌握的文档结构。
blist <- NULL
buf <- mongo.bson.buffer.create()
mongo.bson.buffer.append(buf, name="host",
value="unittest.com")
mongo.bson.buffer.start.array(buf, "paths")
mongo.bson.buffer.start.object(buf, "1")
mongo.bson.buffer.append(buf, name="path",
value="home")
mongo.bson.buffer.append(buf, name="url",
value="www.unittest.com/home")
mongo.bson.buffer.start.array(buf, "queries")
mongo.bson.buffer.start.object(buf, "1")
mongo.bson.buffer.append(buf, name="query",
value="?somequery")
mongo.bson.buffer.append(buf, name="url",
value="www.unittest.com/home?somequery")
mongo.bson.buffer.finish.object(buf) # finish query:1
mongo.bson.buffer.start.object(buf, "2")
mongo.bson.buffer.append(buf, name="query",
value="?someotherquery")
mongo.bson.buffer.append(buf, name="url",
value="www.unittest.com/home?someotherquery")
mongo.bson.buffer.finish.object(buf) # finish query:2
mongo.bson.buffer.finish.object(buf) # finish queries
mongo.bson.buffer.finish.object(buf) # finish path:1
mongo.bson.buffer.start.object(buf, "2")
mongo.bson.buffer.append(buf, name="path",
value="somepage")
mongo.bson.buffer.append(buf, name="url",
value="www.unittest.com/somepage")
mongo.bson.buffer.start.array(buf, "queries")
mongo.bson.buffer.start.object(buf, "1")
mongo.bson.buffer.append(buf, name="query",
value="?somequery")
mongo.bson.buffer.append(buf, name="url",
value="www.unittest.com/somepage?somequery")
mongo.bson.buffer.finish.object(buf) # finish query:1
mongo.bson.buffer.start.object(buf, "2")
mongo.bson.buffer.append(buf, name="query",
value="?someotherquery")
mongo.bson.buffer.append(buf, name="url",
value="www.unittest.com/somepage?someotherquery")
mongo.bson.buffer.finish.object(buf) # finish query:2
mongo.bson.buffer.finish.object(buf) # finish queries
mongo.bson.buffer.finish.object(buf) # finish path:2
mongo.bson.buffer.finish.object(buf) # finish paths
mongo.bson.buffer.finish.object(buf) # finish buf
b <- mongo.bson.from.buffer(buf)
blist <- c(blist, list(b))
编辑2012-01-23
我删除了这一部分,使问题更容易掌握。
sapply(blist, function(ii) {
mongo.insert(mongo=con, ns=ns, b=ii)
})
buf <- mongo.bson.buffer.create()
mongo.bson.buffer.start.object(buf, "paths")
mongo.bson.buffer.start.object(buf, "$elemMatch")
mongo.bson.buffer.start.object(buf, "queries")
mongo.bson.buffer.start.object(buf, "$elemMatch")
mongo.bson.buffer.append(buf, name="query", value="?somequery")
mongo.bson.buffer.finish.object(buf)
mongo.bson.buffer.finish.object(buf)
mongo.bson.buffer.finish.object(buf)
mongo.bson.buffer.finish.object(buf)
query <- mongo.bson.from.buffer(buf)
> query
paths : 3
$elemMatch : 3
queries : 3
$elemMatch : 3
query : 2 ?somequery
> mongo.find.one(mongo=con, ns=ns, query=query)
_id : 7 50feff31ba54a032514b6181
host : 2 unittest.com
paths : 4
1 : 3
path : 2 home
url : 2 www.unittest.com/home
queries : 4
1 : 3
query : 2 ?somequery
url : 2 www.unittest.com/home?somequery
2 : 3
query : 2 ?someotherquery
url : 2 www.unittest.com/home?someotherquery
2 : 3
path : 2 somepage
url : 2 www.unittest.com/somepage
queries : 4
1 : 3
query : 2 ?somequery
url : 2 www.unittest.com/somepage?somequery
2 : 3
query : 2 ?someotherquery
url : 2 www.unittest.com/somepage?someotherquery
我想在query
子文档中设置query
字段的值。我查看了MongoDB Manual并尝试了类似的内容(使用$set
和$
运算符,因为涉及到数组):
buf <- mongo.bson.buffer.create()
mongo.bson.buffer.start.object(buf, "$set")
mongo.bson.buffer.start.object(buf, "paths")
mongo.bson.buffer.start.object(buf, "$")
mongo.bson.buffer.start.object(buf, "queries")
mongo.bson.buffer.start.object(buf, "$")
mongo.bson.buffer.append(
buf,
name="name",
value="abcd"
)
mongo.bson.buffer.finish.object(buf)
mongo.bson.buffer.finish.object(buf)
mongo.bson.buffer.finish.object(buf)
mongo.bson.buffer.finish.object(buf)
mongo.bson.buffer.finish.object(buf)
bnew <- mongo.bson.from.buffer(buf)
> bnew
$set : 3
paths : 3
$ : 3
queries : 3
$ : 3
name : 2 abcd
显然,这不是一个好的选择; - )
res <- mongo.update(mongo=con, ns=ns, criteria=query,
objNew=bnew, flags=mongo.update.multi)
> res
[1] FALSE
2:http://docs.mongodb.org/manual/applications/update/#update-operators zU
答案 0 :(得分:2)
试试这件事:
buf <- mongo.bson.buffer.create()
mongo.bson.buffer.start.object(buf, "$set")
mongo.bson.buffer.append(buf, "paths.0.queries.1.query", "?newquery")
mongo.bson.buffer.finish.object(buf)
bnew = mongo.bson.from.buffer(buf)
这将取代第一个查询中的第二个查询。