SEXP SmokeObject::sexpFromPtr(void *ptr, const Class *klass, bool allocated, bool copy) { SmokeObject *so = fromPtr(ptr, klass, allocated, copy); if (!so) return R_NilValue; else return so->sexp(); }
SEXP qt_qdataFrameModel(SEXP rparent, SEXP useRoles, SEXP editable) { static Class *dataFrameModelClass = new NameOnlyClass("DataFrameModel", Class::fromName("QAbstractTableModel")); SmokeObject *so = SmokeObject::fromPtr(new DataFrameModel(unwrapSmoke(rparent, QObject), useRoles, editable), Class::fromName("QAbstractTableModel"), true); so->cast(dataFrameModelClass); return so->sexp(); }
SEXP qt_qcast(SEXP x, SEXP klass) { SmokeObject *obj = SmokeObject::fromSexp(x); obj->cast(Class::fromSexp(klass)); return obj->sexp(); }