/////////////////////// // Get the name of the event list SEXP getName(SEXP eventList) { TEventList* el = checkForEventListWrapper(eventList); SEXP name = NEW_CHARACTER(1); SET_STRING_ELT( name, 0, mkChar(el->GetName()) ); return name; }
//////////////// // Get the event list SEXP RootChainManager::getEventListName() { TEventList* ev = m_chain->GetEventList(); if (! ev ) return R_NilValue; SEXP r = NEW_CHARACTER(1); SET_STRING_ELT(r, 0, mkChar(ev->GetName()) ); return r; }