removed quote wrappings in return value of dbAggregate and make it re…

…turn a vector rather than string.
tc · Jan 15, 2013 · ce3f837 · ce3f837
1 parent d9cff0d
commit ce3f837
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/rmongo.R b/R/rmongo.R
@@ -108,7 +108,7 @@ setMethod("dbGetDistinct", signature(rmongo.object="RMongo", collection="charact
 setGeneric("dbAggregate", function(rmongo.object, collection, query="") standardGeneric("dbAggregate"))
 setMethod("dbAggregate", signature(rmongo.object="RMongo", collection="character", query="character"),
   function(rmongo.object, collection, query){
-    results <- .jcall(rmongo.object@javaMongo, "S", "dbAggregate", collection, .jarray(query))
+    results <- .jcall(rmongo.object@javaMongo, "[S", "dbAggregate", collection, .jarray(query))
     results
   }
 )
diff --git a/tests/RMongo-Ex.R b/tests/RMongo-Ex.R
@@ -101,15 +101,14 @@ test.dbAggregate <- function(){
 
   output <- dbAggregate(mongo, "test_data", c(' { "$project" : { "baz" : "$foo" } } ',
                                               ' { "$group" : { "_id" : "$baz" } } ',
-                                              #' { "$group" : { "_id" : "$baz" } } '))
                                                ' { "$match" : { "_id" : "bar" } } '))
   dbRemoveQuery(mongo, "test_data", '{}')
   dbDisconnect(mongo)
 
   # print(length(output))
   print(as.character(output[1]))
 
-  checkEquals("\"{ \"_id\" : \"bar\"}\"", as.character(output[1]))
+  checkEquals("{ \"_id\" : \"bar\"}", as.character(output[1]))
   # checkEquals("bar", as.character(output[1]))
 }