SEXP R_mongo_collection_stats(SEXP ptr_col){
mongoc_collection_t *col = r2col(ptr_col);
bson_t reply;
bson_error_t err;
if(!mongoc_collection_stats(col, NULL, &reply, &err))
stop(err.message);
SEXP out = PROTECT(bson2list(&reply));
bson_destroy (&reply);
UNPROTECT(1);
return out;
}
static void
test_stats (void)
{
mongoc_collection_t *collection;
mongoc_client_t *client;
bson_error_t error;
bson_iter_t iter;
bson_t stats;
bson_t doc = BSON_INITIALIZER;
bool r;
client = mongoc_client_new (gTestUri);
ASSERT (client);
collection = get_test_collection (client, "test_stats");
ASSERT (collection);
r = mongoc_collection_insert (collection, MONGOC_INSERT_NONE, &doc, NULL, &error);
assert (r);
r = mongoc_collection_stats (collection, NULL, &stats, &error);
assert (r);
assert (bson_iter_init_find (&iter, &stats, "ns"));
assert (bson_iter_init_find (&iter, &stats, "count"));
assert (bson_iter_as_int64 (&iter) >= 1);
bson_destroy (&stats);
r = mongoc_collection_drop (collection, &error);
assert (r);
mongoc_collection_destroy (collection);
mongoc_client_destroy (client);
bson_destroy (&doc);
}
bool dbproxy::stats(std::string collection, const bson_t *options, bson_t *reply, bson_error_t *error) {
mongoc_collection_t * _c = get_collection(collection);
return mongoc_collection_stats(_c, options, reply, error);
}
