The R Project SVN R

Rev

Rev 63624 | Rev 64970 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 63624 Rev 64933
Line 1609... Line 1609...
1609 
SEXP asS4(SEXP s, Rboolean flag, int complete)
 1609 
SEXP asS4(SEXP s, Rboolean flag, int complete)
1610 
{
 1610 
{
1611 
    if(flag == IS_S4_OBJECT(s))
 1611 
    if(flag == IS_S4_OBJECT(s))
1612 
	return s;
 1612 
	return s;
1613 
    PROTECT(s);
 1613 
    PROTECT(s);
1614 
    if(NAMED(s) == 2)
 1614 
    if(MAYBE_SHARED(s))
1615 
	s = duplicate(s);
 1615 
	s = duplicate(s);
1616 
    UNPROTECT(1);
 1616 
    UNPROTECT(1);
1617 
    if(flag) SET_S4_OBJECT(s);
 1617 
    if(flag) SET_S4_OBJECT(s);
1618 
    else {
 1618 
    else {
1619 
	if(complete) {
 1619 
	if(complete) {