Displaying 4 results from an estimated 4 matches for "rinherits".
Did you mean:
inherits
2019 Nov 01
3
R C api for 'inherits' S3 and S4 objects
...w. Thank you.
Jan Gorecki
// S3 inheritance
bool INHERITS(SEXP x, SEXP char_) {
SEXP klass;
if (isString(klass = getAttrib(x, R_ClassSymbol))) {
for (int i=0; i<LENGTH(klass); i++) {
if (STRING_ELT(klass, i) == char_) return true;
}
}
return false;
}
// S4 inheritance
bool Rinherits(SEXP x, SEXP char_) {
SEXP vec = PROTECT(ScalarString(char_));
SEXP call = PROTECT(lang3(sym_inherits, x, vec));
bool ans = LOGICAL(eval(call, R_GlobalEnv))[0]==1;
UNPROTECT(2);
return ans;
}
2019 Nov 01
4
[External] R C api for 'inherits' S3 and S4 objects
...EXP klass;
> > if (isString(klass = getAttrib(x, R_ClassSymbol))) {
> > for (int i=0; i<LENGTH(klass); i++) {
> > if (STRING_ELT(klass, i) == char_) return true;
> > }
> > }
> > return false;
> > }
> > // S4 inheritance
> > bool Rinherits(SEXP x, SEXP char_) {
> > SEXP vec = PROTECT(ScalarString(char_));
> > SEXP call = PROTECT(lang3(sym_inherits, x, vec));
> > bool ans = LOGICAL(eval(call, R_GlobalEnv))[0]==1;
> > UNPROTECT(2);
> > return ans;
> > }
> >
> > ______________________...
2019 Nov 01
0
[External] R C api for 'inherits' S3 and S4 objects
...; bool INHERITS(SEXP x, SEXP char_) {
> SEXP klass;
> if (isString(klass = getAttrib(x, R_ClassSymbol))) {
> for (int i=0; i<LENGTH(klass); i++) {
> if (STRING_ELT(klass, i) == char_) return true;
> }
> }
> return false;
> }
> // S4 inheritance
> bool Rinherits(SEXP x, SEXP char_) {
> SEXP vec = PROTECT(ScalarString(char_));
> SEXP call = PROTECT(lang3(sym_inherits, x, vec));
> bool ans = LOGICAL(eval(call, R_GlobalEnv))[0]==1;
> UNPROTECT(2);
> return ans;
> }
>
> ______________________________________________
> R-devel at...
2019 Nov 01
0
[External] R C api for 'inherits' S3 and S4 objects
...(isString(klass = getAttrib(x, R_ClassSymbol))) {
>>> for (int i=0; i<LENGTH(klass); i++) {
>>> if (STRING_ELT(klass, i) == char_) return true;
>>> }
>>> }
>>> return false;
>>> }
>>> // S4 inheritance
>>> bool Rinherits(SEXP x, SEXP char_) {
>>> SEXP vec = PROTECT(ScalarString(char_));
>>> SEXP call = PROTECT(lang3(sym_inherits, x, vec));
>>> bool ans = LOGICAL(eval(call, R_GlobalEnv))[0]==1;
>>> UNPROTECT(2);
>>> return ans;
>>> }
>>>
>>>...