SEXP rpy_remove(SEXP symbol, SEXP env, SEXP rho)
{
SEXP c_R, call_R, res, fun_R;
PROTECT(fun_R = rpy_findFun(install("rm"), rho));
if(!isEnvironment(rho)) error("'rho' should be an environment");
/* incantation to summon R */
PROTECT(c_R = call_R = allocList(2+1));
SET_TYPEOF(c_R, LANGSXP);
SETCAR(c_R, fun_R);
c_R = CDR(c_R);
/* first argument is the name of the variable to be removed */
SETCAR(c_R, symbol);
//SET_TAG(c_R, install("list"));
c_R = CDR(c_R);
/* second argument is the environment in which the variable
should be removed */
SETCAR(c_R, env);
SET_TAG(c_R, install("envir"));
c_R = CDR(c_R);
int error = 0;
PROTECT(res = R_tryEval(call_R, rho, &error));
UNPROTECT(3);
return res;
}
SEXP rpy_unserialize(SEXP connection, SEXP rho)
{
SEXP c_R, call_R, res, fun_R;
PROTECT(fun_R = rpy_findFun(install("unserialize"), rho));
if(!isEnvironment(rho)) error("'rho' should be an environment");
/* obscure incatation to summon R */
PROTECT(c_R = call_R = allocList(2));
SET_TYPEOF(c_R, LANGSXP);
SETCAR(c_R, fun_R);
c_R = CDR(c_R);
/* first argument is a RAWSXP representation of the object to unserialize */
SETCAR(c_R, connection);
c_R = CDR(c_R);
PROTECT(res = eval(call_R, rho));
UNPROTECT(2);
return res;
}
SEXP rpy_serialize(SEXP object, SEXP rho)
{
SEXP c_R, call_R, res, fun_R;
PROTECT(fun_R = rpy_findFun(install("serialize"), rho));
if(!isEnvironment(rho)) error("'rho' should be an environment");
/* obscure incatation to summon R */
PROTECT(c_R = call_R = allocList(3));
SET_TYPEOF(c_R, LANGSXP);
SETCAR(c_R, fun_R);
c_R = CDR(c_R);
/* first argument is the SEXP object to serialize */
SETCAR(c_R, object);
c_R = CDR(c_R);
/* second argument is NULL */
SETCAR(c_R, R_NilValue);
c_R = CDR(c_R);
PROTECT(res = eval(call_R, rho));
UNPROTECT(3);
return res;
}
