r_object.cpp

#include "Object.hpp"
#include "r_object.h"

using instrumentr::from_sexp;
using instrumentr::Object;
using instrumentr::ObjectSPtr;
using instrumentr::to_sexp;

SEXP r_object_get_id(SEXP r_object) {
    ObjectSPtr object = from_sexp<Object>(r_object);
    return ScalarInteger(object->get_id());
}

SEXP r_object_set_data(SEXP r_object, SEXP r_data) {
    ObjectSPtr object = from_sexp<Object>(r_object);
    object->set_data(r_data);
    return R_NilValue;
}

SEXP r_object_get_data(SEXP r_object) {
    ObjectSPtr object = from_sexp<Object>(r_object);
    SEXP r_data = object->get_data();
    return r_data;
}

SEXP r_object_remove_data(SEXP r_object) {
    ObjectSPtr object = from_sexp<Object>(r_object);
    object->remove_data();
    return R_NilValue;
}

SEXP r_object_has_data(SEXP r_object) {
    ObjectSPtr object = from_sexp<Object>(r_object);
    return ScalarLogical(object->has_data());
}