The R Project SVN R

Rev

Rev 89552 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89552 Rev 89685
Line 917... Line 917...
917 
	for (i = 0; i < length(klass); i++)
 917 
	for (i = 0; i < length(klass); i++)
918 
	    if (!strcmp(CHAR(STRING_ELT(klass, i)), "data.frame")) return TRUE;
 918 
	    if (!strcmp(CHAR(STRING_ELT(klass, i)), "data.frame")) return TRUE;
919 
    }
 919 
    }
920 
    return FALSE;
 920 
    return FALSE;
921 
}
 921 
}
- 
 
 922 
/* keep available under old name for now for old RStudio in particular */
- 
 
 923 
INLINE_FUN Rboolean Rf_isFrame(SEXP s) { return isDataFrame(s); }
922 
 
 924 
 
923 
/* DIFFERENT than R's  is.language(.) in ../main/coerce.c [do_is(), case 301:]
 925 
/* DIFFERENT than R's  is.language(.) in ../main/coerce.c [do_is(), case 301:]
924 
 *                                    which is   <=>  SYMSXP || LANGSXP || EXPRSXP */
 926 
 *                                    which is   <=>  SYMSXP || LANGSXP || EXPRSXP */
925 
INLINE_FUN Rboolean isLanguage(SEXP s)
 927 
INLINE_FUN Rboolean isLanguage(SEXP s)
926 
{
 928 
{