SEXP mongo_index_create(SEXP mongo_conn, SEXP ns, SEXP key, SEXP options) {
mongo* conn = _checkMongo(mongo_conn);
const char* _ns = CHAR(STRING_ELT(ns, 0));
int _options = 0;
int i;
int len = LENGTH(options);
for (i = 0; i < len; i++)
_options |= INTEGER(options)[i];
bson* _key;
bson b;
int keyIsBSON = _isBSON(key);
if (keyIsBSON)
_key = _checkBSON(key);
else {
_key = &b;
len = LENGTH(key);
bson_init(&b);
for (i = 0; i < len; i++)
bson_append_int(&b, CHAR(STRING_ELT(key, i)), 1);
bson_finish(&b);
}
bson out;
int success = mongo_create_index(conn, _ns, _key, _options, &out);
if (!keyIsBSON)
bson_destroy(&b);
if (success == MONGO_OK) {
bson_destroy(&out);
return R_NilValue;
}
SEXP ret = _mongo_bson_create(&out);
bson_destroy(&out);
UNPROTECT(3);
return ret;
}
SEXP mongo_gridfile_get_descriptor(SEXP gfile) {
gridfile* _gfile = _checkGridfile(gfile);
if (bson_size(_gfile->meta) <= 5)
return R_NilValue;
SEXP ret = _mongo_bson_create(_gfile->meta);
UNPROTECT(3);
return ret;
}
SEXP mongo_cursor_value(SEXP cursor) {
mongo_cursor* _cursor = _checkCursor(cursor);
if (!_cursor || !_cursor->current.data)
return R_NilValue;
SEXP ret = _mongo_bson_create(&_cursor->current);
UNPROTECT(3);
return ret;
}
SEXP mongo_gridfile_get_metadata(SEXP gfile) {
gridfile* _gfile = _checkGridfile(gfile);
bson meta = gridfile_get_metadata(_gfile);
if (bson_size(&meta) <= 5)
return R_NilValue;
SEXP ret = _mongo_bson_create(&meta);
UNPROTECT(3);
return ret;
}
SEXP mongo_gridfile_get_chunk(SEXP gfile, SEXP i) {
gridfile* _gfile = _checkGridfile(gfile);
int _i = asInteger(i);
bson chunk = gridfile_get_chunk(_gfile, _i);
if (bson_size(&chunk) <= 5)
return R_NilValue;
SEXP ret = _mongo_bson_create(&chunk);
UNPROTECT(3);
return ret;
}
SEXP mongo_get_prev_err(SEXP mongo_conn, SEXP db) {
mongo* conn = _checkMongo(mongo_conn);
const char* _db = CHAR(STRING_ELT(db, 0));
bson out;
if (mongo_cmd_get_prev_error(conn, _db, &out) == MONGO_OK) {
bson_destroy(&out);
return R_NilValue;
}
SEXP ret = _mongo_bson_create(&out);
bson_destroy(&out);
UNPROTECT(3);
return ret;
}
SEXP mongo_command(SEXP mongo_conn, SEXP db, SEXP command) {
mongo* conn = _checkMongo(mongo_conn);
const char* _db = CHAR(STRING_ELT(db, 0));
bson* _command = _checkBSON(command);
bson out;
if (mongo_run_command(conn, _db, _command, &out) != MONGO_OK) {
return R_NilValue;
}
SEXP ret = _mongo_bson_create(&out);
bson_destroy(&out);
UNPROTECT(3);
return ret;
}
SEXP rmongo_find_one(SEXP mongo_conn, SEXP ns, SEXP query, SEXP fields) {
mongo* conn = _checkMongo(mongo_conn);
const char* _ns = CHAR(STRING_ELT(ns, 0));
bson* _query = _checkBSON(query);
bson* _fields = _checkBSON(fields);
bson out;
if (mongo_find_one(conn, _ns, _query, _fields, &out) != MONGO_OK) {
return R_NilValue;
}
SEXP ret = _mongo_bson_create(&out);
bson_destroy(&out);
UNPROTECT(3);
return ret;
}
SEXP mongo_simple_command(SEXP mongo_conn, SEXP db, SEXP cmdstr, SEXP arg) {
mongo* conn = _checkMongo(mongo_conn);
const char* _db = CHAR(STRING_ELT(db, 0));
const char* _cmdstr = CHAR(STRING_ELT(cmdstr, 0));
bson out;
int success;
if (TYPEOF(arg) == STRSXP)
success = (mongo_simple_str_command(conn, _db, _cmdstr, CHAR(STRING_ELT(arg, 0)), &out) == MONGO_OK);
else
success = (mongo_simple_int_command(conn, _db, _cmdstr, asInteger(arg), &out) == MONGO_OK);
if (!success) {
return R_NilValue;
}
SEXP ret = _mongo_bson_create(&out);
bson_destroy(&out);
UNPROTECT(3);
return ret;
}
