The R Project SVN R

(root)/trunk/src/main/objects.c @ 28362 – Rev 87901 → 87938



    UNPROTECT(1);
    return f;
}
#endif
 
 
// in Rinternals.h
Rboolean isS4(SEXP s)
{
    return IS_S4_OBJECT(s);
}
 
// in Rinternals.h
SEXP asS4(SEXP s, Rboolean flag, int complete)
{
    if(flag == IS_S4_OBJECT(s))
	return s;
    PROTECT(s);

Rev 87901	Rev 87938
Line 1833...	Line 1833...
1833	`UNPROTECT(1);`	1833	`UNPROTECT(1);`
1834	`return f;`	1834	`return f;`
1835	`}`	1835	`}`
1836	`#endif`	1836	`#endif`
1837		1837
1838		-
-		1838	`// in Rinternals.h`
1839	`Rboolean isS4(SEXP s)`	1839	`Rboolean isS4(SEXP s)`
1840	`{`	1840	`{`
1841	`return IS_S4_OBJECT(s);`	1841	`return IS_S4_OBJECT(s);`
1842	`}`	1842	`}`
1843		1843
-		1844	`// in Rinternals.h`
1844	`SEXP asS4(SEXP s, Rboolean flag, int complete)`	1845	`SEXP asS4(SEXP s, Rboolean flag, int complete)`
1845	`{`	1846	`{`
1846	`if(flag == IS_S4_OBJECT(s))`	1847	`if(flag == IS_S4_OBJECT(s))`
1847	`return s;`	1848	`return s;`
1848	`PROTECT(s);`	1849	`PROTECT(s);`