rmongodb:聚合中的减法日期

Question

在最终确定如何使用mongo.bson.from.list()参数化使用日期的聚合管道后，我一直在与下面的代码片段进行斗争，以获得下面日期差异的$min，但是一直在获取

 Error in mongo.aggregation(m, collection , aggregation_pipeline ) : 
   mongoDB error: 10. Please check ?mongo.get.err for more details.

这意味着，尽管mongo.bson.from.list()可以接受我的BSON组表达式，但mongo.aggregation()拒绝它。

我尝试过使用list()而不是c()，使用cod而不是它的ISODate定义，并使用了各种引用变体。

 cod <- as.POSIXct("2015-01-01 00:00:00" , tz = "GMT" )

 grouparg_bson1 <- mongo.bson.from.list(
   list( '$group' = list( '_id'     = list('ID'        = '$dcmt.cid') ,
                          'dtdiff'  = list('$min'      = list('$subtract' = c('$dcmt.orddt','ISODate("2015-01-01T00:00:00Z")' )) ),
                          'tota'    = list('$sum'      = '$dcmt.A' ),
                          'list'    = list('$addToSet' = '$dcmt.B' )
   ))
 )

我正在使用mongo的最新稳定版本，版本3.2.4。

Answer 1

试错:以下作品。

 grouparg_bson1 <- mongo.bson.from.list(
   list( '$group' = list( '_id'     = list('ID'        = '$dcmt.cid') ,
                          'dtdiff'  = list('$min'      = list('$subtract' = list('$dcmt.orddt', cod )) ),
                          'tota'    = list('$sum'      = '$dcmt.A' ),
                          'list'    = list('$addToSet' = '$dcmt.B' )
   ))
 )