Question

我正在尝试通过R驱动程序rmongodb查询MongoDB。以下查询适用于cmd行（结果：204,915）：

db.col1.count( 
    {
        $or: [
            {'status.time':{$gt: ISODate('2013-09-10 00:00:00')}},
            {'editings.time':{$gt: ISODate('2013-09-10 00:00:00')}}
        ]
    } );

将其翻译成R，我试过：

d<-strptime('2013-09-10', format='%Y-%m-%d')
buf <- mongo.bson.buffer.create()
mongo.bson.buffer.start.array(buf, "$or")
mongo.bson.buffer.start.object(buf, 'status.time')
mongo.bson.buffer.append(buf, "$gt", d)
mongo.bson.buffer.finish.object(buf)
mongo.bson.buffer.start.object(buf, 'editings.time')
mongo.bson.buffer.append(buf, "$gt", d)        
mongo.bson.buffer.finish.object(buf)

编辑：这是查询在R中打印的内容：

>mongo.bson.from.buffer(buf)
    $or : 4      
        status.time : 3      
            $gt : 9      79497984

        editings.time : 3    
            $gt : 9      79497984

使用...

执行查询

mongo.count(mongo, db1.col1, query=mongo.bson.from.buffer(buf))

...给我“-1”。我尝试了几种BSON的变种，都有相同的结果。但是，只使用其中一个条件（没有$或数组）。有谁看到我的错误？

BTW：我知道线程rmongodb: using $or in query，但是，使用替代驱动程序RMongo的建议答案不满足我的代码的其他要求。

Answer 1

你创建一个mongo bson数组的方法是错误的。你错过了部分

mongo.bson.buffer.start.object(buf, "0")
...
mongo.bson.buffer.finish.object(buf)
mongo.bson.buffer.start.object(buf, "1")
...
mongo.bson.buffer.finish.object(buf)

有关工作示例，请查看最新评论： https://github.com/mongosoup/rmongodb/issues/17

我希望现在有效。我正在制定一个更简单的解决方案！

Answer 2

为了避免必须编写mongo.bson.buffer语句的序列，我编写了一个包（rmongodbHelper），它将JSON或list（）转换为BSON对象，然后可以与rmongodb一起使用

首先让我们设置环境：

library(rmongodb)

# install rmongodbHelper package from GitHub

library(devtools)
devtools::install_github("joyofdata/rmongodbHelper")
library(rmongodbHelper)

# the MongoDB instance

ns <- "dbx.collx"
M <- mongo.create()
mongo.is.connected(M)
mongo.remove(M, ns, json_to_bson("{}"))

# inserting a number of dummy objects
# JSON keys currently are expected to be wrapped in double quotes!

objs <- c(
  '{"_id":"__int(0)", "dates":{}}',
  '{"_id":"__int(1)", "dates":{"a":"__time(2013-01-01)", "b":"__time(2013-01-01)"}}',
  '{"_id":"__int(2)", "dates":{"a":"__time(2013-01-01)", "b":"__time(2014-01-01)"}}',
  '{"_id":"__int(3)", "dates":{"a":"__time(2014-01-01)", "b":"__time(2013-01-01)"}}',
  '{"_id":"__int(4)", "dates":{"a":"__time(2014-01-01)", "b":"__time(2014-01-01)"}}'
)

for(obj in objs) {
  mongo.insert(M, ns, json_to_bson(obj))
}

让我们通过MongoDB shell查看它们是否已成功插入：

> use dbx
switched to db dbx
> db.collx.find().pretty()
{ "_id" : 0, "dates" : { } }
{
        "_id" : 1,
        "dates" : {
                "a" : ISODate("2013-01-01T00:00:00Z"),
                "b" : ISODate("2013-01-01T00:00:00Z")
        }
}
[...]
{
        "_id" : 4,
        "dates" : {
                "a" : ISODate("2014-01-01T00:00:00Z"),
                "b" : ISODate("2014-01-01T00:00:00Z")
        }
}

现在让我们搜索带有查询的文档：

# searching for those objects
# JSON keys currently are expected to be wrapped in double quotes!

json_qry <- 
'{
  "$or": [
    {"dates.a":{"$gt": "__time(2013-06-10)"}},
    {"dates.b":{"$gt": "__time(2013-06-10)"}}
  ]
}'

cur <- mongo.find(M, "dbx.collx", json_to_bson(json_qry))

while(mongo.cursor.next(cur)) {
    print(mongo.cursor.value(cur))
}

这就是我们最终得到的结果：

_id : 16     2
dates : 3    
    a : 9    -211265536
    b : 9    1259963392

_id : 16     3
dates : 3    
    a : 9    1259963392
    b : 9    -211265536

_id : 16     4
dates : 3    
    a : 9    1259963392
    b : 9    1259963392

键 - 像$或 - 这样的运算符也需要用双引号括起来。
"x":3会导致3被视为双重
"x":"__int(3)"将导致3被转换为整数

在查询中使用$或数组

2 个答案: